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4JJI 


iJASJj uwjji JJ 4J4& 4«Lij^jjj4S 4Jlji«wU ((jl&jLwAtUjAJ ^J4 jjLj4j ) j 4Jj^yjS jjilj^wAjlSAJ jj^44 

. (Visual basic) 4SUj4j JjjjjuS i$4«bj4j jLûjjiSjljjljJJ, Database jliJjjLûij 
j jLSjjjjJ i^JjJjû 4J <yjljjj lujIjjjj IJjLÛ 4S. jjLw4«ljj4J ^jLSJÎjbjbAJ 4jL«j 4J 4iuS4J dwJ4J jjjjjul ^iUj 
45 «jjj (Database) jl£4JjLjlj ^4 Sj 4j jj4Sj (J 4 jjjj 4 j ^uIjjSjj Ujjj 44 jj4£4jjj£ j4w 4J jLSjjljjb ^JJjSjJj 

■ jt&)jLw4jbj4J i£4Jjjj ^JjjJJjlj *JjLSj4 4Û J JJ jw4jU4J 

^wb |JJJ 4 4 jj 4SmJ 4J jjjjuJ ^LS4J{jjLjJj4w ^wW JJJJLJi IJ4uJjj\S4J4J 4uiS jw4J ^jljJjjJ 4J 4S (J4jLwb J4J 
Jj4£ ^1w4JJj45oJ 4j jb jj'jJLLwlj ^S4 jjj1w 4J jûljJjJ4S jIjSjjUU ^4«bj4J jJJÛ4> ^IjJj4w. jwJJJJ45wLu 

. jJjJjJlJ LUJJJJ ^jjjjj jbjj jbi LSJuSîfb’ jjLS4j Û4ub (£4«bj4J 4)4J4«bj4J 
4 û^j iijjj4«bj4j jjj4J JJ4 &mJ 4J jjjjuJ (jjjj4«bj4J4J 



jbjlJj4j 

jSLw jjJJIf L^J juf'jJlbUû 

2005/8/ 1 






BASIC i-ImijAj i£4wjj. LUjjjJb jiwJJj (jjLwJjljjAj <jjUj ^SjIj Jj aS jiwJJj ^Uj 


4jUuj ^Uj) LjIj jjjjLa uLu(Beginners All-Purpose Symbolic Instruction Code) <^LS4wjj 

.(jLSjJyJlûdjJwi^iwJJJj ÛmS jj jLSJjUjlA 

PjçS ^Ljjj Lilj j (John Kemeny) oS jj? Ulj jjjjA 4 j4jV <U 4S BASIC dLjjj ^iUj 

j4jV 4) jLwU * ûLa j»4Aj4j (Dartmaouth) jnjUjjb ^jSilj 4J1963 ^U 4i (Thomas Kurtz) 
l£4j4«Uj4j j4j t£4£tu ^SjjjAj j^jjj ^4 SjUj4j 1978 yJUAJ* (development) IjJuj ^j4j d4jLiU«jS 

4j|j4i UuA i»4Aj4j ^jjjjî jjJUA? jLwU .Jj4ûwjlJ JjUjjJ 


(.QBASIC„GW BASIC, TURBO-BASIC) 

JÛ4£ 4j ^jûaJjjj Ij4j UJjS ÛwJjJ ^jlj? cSLpLSjjj JJjjLw4jUj4j j44 j4S JJJ4A iijLSjjj |£4 mulS jJJÛ4£ Lwj4j 4S 
4 j Jj4j 4S JjS ûfl j wjjSjU (jUiLwjS 4J ^lj juJjJ ^j 4jl itiiS j»4i 4S 4 jjj 44 juujjj jjS 41 jûUj jU jj <4ljjjj4w 
4j4jljU47m> ^SÛJ4J Jjjjjwfl (J4 «Uj4j ^jjjjfl |»4S4 j ûfljwjjSjU i^LûLujS 1991 ^Lw4l jjJJj4j, ûlJU 4 Lwj4j ^jUj 

.(Visual Studio 6.0) 4j jjIjwU 4S j (Visual Basic 6.0) 4Lwj4j DjjjlA Version ^jjjjfl jJljJ jSLUoj * 









. jjdidjb CD-Rom jIujaj J'JIjjjS t£4jtjj4j 4 j ûjluû CD I: LjjjAwAJ -1 
.jjiSa Next jAwAJ LLdS UljUjjiS lu^jjjj: Jjjj4m 4j ^aj jjjjujj ^j^JlwJj JlwLw jJiwJJ Lxuj -2 



LLdS LaûjjjjU IjjjjjI^<U 41jj jjjjjjjJÛAA I accept the agreement ^wAj I: j>jUI: ^jjAaj 4 j jJ -3 

. jjjiSj: Next jAwJJ 


"■ InstûUntiem Wi7flFfl fnr Visunl Sttsrfin 6.0 [ntei’priae EditÎDin 


End User License Agreement 





3e sue to ceeMv i&ad and LJidsiitend dl of the dghls end jestiictiore 
dcsc.nbecf h thç E I.J LA V'.:m wi\ bç- a^hcd to rçvicw o*-d ciil-^r occept -oj ncii 
ziL-Oeijl lf K lerirti uf îhe EUUlr. This p:fuduel. w'Û nut rel up unyCHjr Cöfflputel 
unlesB or irtiijiou accept the terms of tho tULA. For pcxt' iutuie leference. 
yau may pnnfc the fcExfc nfc H-ie ÊiUI.A fciom îhs Eula b:l lile nfc fchis. prnduol Ydu 
jt»=v al$o feoeive e copv of thî EULA by DorrLacthg Lne MbrosofL -subiidiaiy 
5cr v ing your counby. o ojrtc; MicrtKdt 5afes rnk*maiion Çbrtcr20r-iç 
Miuicnult W^i /Rudmurid.. WA 36Û52-6393 


END-USEH UCEN3E AÊREEMEriT FÛR HlCfiÛSOFT SÛFTWAfiE 

IMFORTANT READ CAREFULLY: This MicKKoft End-Use* L««tKe 
Agr*ftttierie (^EULA*) i± e leydi dyieeiiF^i: belween you (eîlhÊt 
individLHl oi e sinolo ertily) artd M-cro$of« Cofporaiion for the Mcrosofi 
sotlvJAr* pfDducfcfs) accömpanyng this EUl A. whiclh incLtdEiiJ computEr 
softvjare ar-d may include "onine 1 oi efcecJrond documentetion 
gssocotcd nîodia. ond oiintcd matwiete r'SOFTWAFîE FBODUCTH By 
irtttfilif'KL cnpying. m nlhEiwrrA Liringi Ifcnt SOFTWARE PRQD'-lCT ot any 


i i rir-. a Tr r . j . r... . j _ _ i_ .«■. 




. J L . .1. 


rVESi fche FAIjF- p iTwlN kr.y in eee març fcftnfc 

* I ûCOCpfc ^QrççrrrTTY: 

■ I dan^ öcccpl lfc-«E dgr«sneni 
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< Idack 


Ntxl > 


E,± 





































$j lj j jUjLj UjjjAa jj jiujja <£<uLij<u 4j u<ujIj Product's ID Number LfcLu-4 

: 4jjj1s f<4j jJjSdi Next j4u4J d U iS L a Juj juujjjjj 



. jj4Sjj Next jjbjjj Ij ^jjljç jjL^jJU 4J-4 
.jj4Sjj Next LUmj jjjjjjjjÛJA jûjjjbjjlj ^ ^4S<uljj<u <Û ^jjjjSj<û ^jj jjj jLuU-5 


































ujJii jU4u jJûljAJb 4S jjjjjjtjJite jjLuJjjAj jLwb ijjjjjjjiîJA Next tjlJjjJ -6 

.jjjjjjjjjJA Continue-7 



.Restart »jjjjjluj&»j\i jUJStjJjjjjjjS -8 


Visual Sturdlo 6*0 EnferprîsB - Restart Windows 



You need to icstarl Windows to cmplete Hie irutellation. 


Beforeyou re-îtart H dose any open applicefions. includbig MS’DOS se&sions. 
and save all current docurments. Remove any fbppy dis-ks still nserted in a 
disk drive. Tken, click the RestaitWindms button 


îf you- choose fo resfart, the screen may 30 blank or flicker. Pfease be patient 
irfjpe Setupjestarts ycur rrwhinfe 


wriifa Setupiestarts ycur machine 



i 
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Exrt Setup 













































j j&i jk 

Microsoft Visual Basic 6.0«< Microsoft VisualStudi 6.0<«Programs<«Start -1 


Set Prggram A cce&s and Derauits 

Windows Caê^log 


Atcşssixies 
Adobe Photoshop CS 
Mcrospft FrorftPage 
hfcrosGft Po^erPoint 
Wcrosoft Word 




Wcrosoft Visual SourceSafe ► 

, j MScrosoft Visudl Stucfea 6.0 Enterpfise Tools ► 
Z] Mfcrosofl VisuafStuio'fi.OTools > 


^ M'crpsoft Visual Bask 6.0 


Microstrft Visual C++6.0 
Microsoft Visual FoxPro 6.0 
Microsoft Visual IntefDev 6.0 


ûl^dJjdJ "Jljj^i jLûy -2 






















































j»4S4j I:4«bj4j £)tSjj j4u4). UwljSjjj 4J Microsoft Visual Basic ö.O^bj^j^jjljûUA Jib 
jJJÛ4£ 4J JJJJU djJ JdAJijteû 4J J4J4S « (New Project) 4J jjji ;J«jjjJ (£«j4şj 4J ÛJ^4S«:j«: 4S «j4aj 4j 

::j:jIjj- ^4J«jjm ^4j jJ4J4£«: ^^4J jljLu^ ^bj44 jb4S4Jj4& 4£ jjSjb 



4) ûbljj«:4S j:j5^4j^ ^4j<ubj4j ^j:jS û«jj: jj ûj:jLS4j : Standard EXE 

.LUjSjljbMake EXE <«File^4j 

(DLL ) ( :ULul ) ^jwb 4 j j:jS^4jj^ ^Sobb <y:jS ûwjj: jj ûj:jLS4j îActivex DLL 
.ÛLS::jLS EXE j4^4J J&4J ûlibjLS 4 j4j4j 4J4«bj4J j4J 4S 
(EXE x :ULwl) ^jwb 4 j j: jS^4j^ ^SÛbb Ji jS ûmjj: jj ûj:jLS4j : Activex EXE 
. uLSjjb OLE ^:jûû4J (J«j4j jj jj ^S4j4«bj4j J4S4J ulS^jlSdS 
4^ûji jjj4S( OCX x :ULUI ) lijwb ^Subb ^jjjS ûmjj: jj ûj:jLS4j ♦.: Activex Control 

j4u4jL£4J ^JjLSjj JiijS ûujj: jj 

4SDLL ^jSub 4 j ûUbb <^:jS ûujj: jj ûl:«: ^^jj btActivex Document DLL 

ûjjj4ÛuJ ^LS4£y j4m 4J 4«bj4J yi:jS^4J^ jj ÛJJjb4J 

ûûij4ûui j4u4J4S ^Jj^bb j4j ^i: jSÛujj: jj ûû:jb4j ; Activex Document EXE 

.ûjj4S::jj: 

. l:4Ubj4J4) jj4 Sj :bj jLSjj jûljû:: UjLu4S ûLu4j j:jjal4j 4 j4uIÛ : Add In 


ijjl j£::Ub4j 4S jj^ jljj^ ^«j4ai 4 j ^i:jS ûujj: jj ûj:)LS4 j: VB Application Wizard 

4jI: EXE i£j$s? 4) 4S. 1:424: ^4) 4j4a 



5tandard EXE 



ActiveX DLL 



ActiveX EXE 



ActiveX 
Docunnent Pll 


JActlveK 
DQCument Exe 



VB App||ca 44 on 
_ Wizard _ 
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Intemet Information Server IjIj (IIS) aS :IIS Application Wizard 
HTML (Pj1m4j Web Class <yjjS jjljjj jj ûj:jL£<u <lS 
.6 Microsoft giu ; VB Wizard Manager 

i$jj4j IjJ <u Database jLSJjjLûlj j&j jj jjjjj ^jjjS ûwjjj jj ûjjjLSjj tData Project 

jui$JjLS4Jjj iJ<Uljj4J 

jj i^SLwUjlJ )HTML( ^jlSjjJj V ^jjjS lwjjj jj ûjjjLSjj :DHTML Application 

.(jujJava ^jUj (JjJÛiJjjAj^ 4j ûjjjJiu . u 
iJ4Suj jJU4l jLSjjljjlj jjj4a ^jUlJ jj ûjjjLSjj : VB Enterprise Edition Controls 

jjjSjjjjjjJj Ujjj4A jjj ^S JjjjÛS 4j jLSJjjLûlj 


ve Appllc-aCion 

_ Wlz-anJ _ 



VS Wlzard 
Manager 



DHTML 

Application 



Existing 


(jjuuJ ^jlSjjjjJ ) ûImJ4j jjjjul (J4«Ljj4J (PLSAbLa j jJjjjfl (JJjJÛJjSjS jj ÛJJjLSAJ 4m4j (»4J 













































. 4J4A (jJ<UjIj ^SjjLS J&m 4J j4£ AS diw4J JÛ4£ Ai «j>jU dûj UUj 4J jdjjjd (j<Uljj<U ^djAw ijjLSjj 

. jjAS«: «jiJ jLwb 4S4J 4S4J b jjjUb ^LS<û4j4J 

-s j4jL«4J jLuJj&Jjl 


Form /kjj£-l 

v 

Toolbox jLSdjljjLj (jûjJLU -2 
Properties Windows jLS4jjj<uj <ujU ^dj<uû -3 
Project Explorer jLS«jjjj ^jjjjjjjj -4 

v ~ 

Code jLSjjjS (^uwjjj-5 
Menu bar jLS4luul -6 
Tool Bar jLSdjljjlj ^>5 -7 

























f Oam | 

A) jLû lidjLS j>«44 <4jL>4£«j]jj ^jlj^jLS j jijS jjljj: ^ibajjS jjjî. jLSdjjjj (J4 î£jj (J<LujIj4J 4j ^UjJ 

jjj&jjb4j .ûjj^Sjj:: jljj- j 4Lu j djj ^S<U:jlw<U jjj£ (pj4*i 4j (#j4j jj 4jljjj4A 4Lj4j j:jj^l (£4Lbj4j 

. 4l4|j::j4j LuuU Lj4A :j4S4j ^jj^I ^^jjj^j:: 4J j4A 4S 4j:j4ju 4j 
I: j:jS ^ jjjLS <U ,»îf<u uû^jjjj: I: jjljj: ^ÎIS <U ,jb- jjJjAç- <U jjjjU dl| 4S :jb: :j«jlj^4U d:jj4J 

.uû::: 120 twips jLUb-jj:j4J jljjj ^jjj: ûuj4Sbj:: 




@ 4 ^ 

1 inch = 1440 twips 

1 inch = 72 point 




















































































. ^S^jAw djbjiS jjjjUj^S julJ JUylj jLj jLS 4J ^SjjAw JjlJjS ^jIjuU ^jJLuy 4J Jj ^ÎJjJ 
Jj ^£jU jLwU ^aj Ij BASIC ^jLjj ^ 4S 4 uLSjj jUJUUj4iJ jj ^jULjjU jJjUjjj ^IjIjjU ^4j ^S 


jjIjjU (21) jLSdjljaLj ^jAjIjuj ^jjUj f jjj^j 




uLiS jU'JJJ ^LyUjJu IjAj jLu^j (JIjIS^j ujj^jUj j^S dLijlj^U j 4A 
jU^SJjjji (ijjjj^ jj (Drag & Drop) jLuiSlj j juj^ aj jUjj I 

V V * ** V ♦ ♦♦ 

)ouble Click 



jl>4|j <pUjifl j d)AJ 

jlj-lû^jb 

jlj^li 

Cur) jUiLSfj£wb 4 S ^dibij jAj ^ib jLLu jj ûjjjLSaj jjljjLj ,»<û 

(Jpg,Ico, Gif,Dib,Wmf 

dij iijl>«b 

Picture 

bu 

UjjjAA jj 4 iJûLSAbLi Jj juujj ^jLuoj UjjjAAjj juujj jj ûuJjLSaj jjljjLj 

ûumjjjIUjj ^yuwjjj ûuiljjjj JtidSûjjjj JjdJuAjlSJ j 

Text box 

lib! 

tfjjjtoûjJj JS jUi LSjjjjj jbj jUi LSjjIJjS ^Luuijb ^Umjjj jj ûjjjLS<U 
jjLS uutJJ ^SjjjjJ ^AuJjLSû jjjViJ uuJljJb ^pJjuwjjJ i»AJ< jJiSjJ jj 

.(ÛUjjSuJ ûuiljJJJ ASjjLw JULijAJ UiJÛ )< ÛJjij 

jULu$U ^jljuU 

lable 

A 

jLSjjlJjS ^jjjS^Jb ^ jj ûujjLSjj 4S jLSjjljjlj jjjLSubjbAj JJ jSuSjj 

ûujSjjIj jJmJj ^iSjjUjûS ûLuLS 

jbj<Û ^uSjJ 

Command Button 


jljif j4Saj ^UjJb^ ^u 4 iJtS^jjj^; jUdjljjU 4 ^UjS jj wUJjUjj 

. jj4jJjjJ$Sjj ^4S4l ^jmJjU ^ISjjIjjLj Ij4j jj4j!jjI^S ^SjjbP* 

jjûpljç (ijljub 

Frame 

H 

diUSjjJ j4J ûUSJj Ui4J ÛuiljJJJ jduijLSAJ ^SwujjJlJ <uSjjJ duljjjS IjjjÛJ 

.ÛUjjjddA 

jjjlj^4£ ^jlji^U 

Option Button 

(î- 

j 4S^jJLU j4S4J( j^4J-^l4J) ^JJjlj^^ JiJ wJJjU^J JjljjU 

j^^Aj^j Ij^ ( uuJ JU4 j ) Cuj4j jAwAJ ^U^j^S^j jj ( )^twlj Ij^ utu 

.(^jjjUjjj 

jJjljj^ ^UjJLLu 

Check box 

17 

j<Lu 4 jlS<U jdSij b jjJûw jb<u jJjljulAA dû)A«jS ^ilJÛLuui ju ÛUJjlSJJ 

##* - v 

.uIjjj ^Uu Aj jIjSjjUj ^SujU Ij^ JjljjJ^b ^jLS^Jjlj^4£ AJ ^LS^j 

jtS47(iot ^jJLU 

List Box 

=ş 

ûlul: b jSJjuu i JJ dûijjl jjJja JjJç ÛJjiu: jiS jUA«bj<u dûûLS ûj:jLS<u 
b jujJj Lûb jûi<U Jj (Combobox ) .ÛJjjjuiluW ûuiljû:: j<UÛ 4 jLS<U < 

.ÛJjSdijdj djjAJ ^SJJJjûw 

jlS«jljû!b<J AuuJ <jûjJbb 

Combo box 







































14 04e#*4 

( ûLSj ^jb: jLS^Sjj ^ûwb jjjjûw ûuilju:: jLw<Uljj<U l::jÛJ 

^jjjûw jjjûjû jjljub 

Vertical Scrollbar 

±J 

±1 

4 ûLSj ^jb: jLS^Sjj ^lub jljjjiw ûuiljjj: jLuJjbjJj l::jil 

^jjub tfÛJju Sjljjb 

Horizontal Scrollbar 

±J±J 

^jjIj: d:j jU4S:j4jju<ujS i£:b ^LS4Û<u ^il: jLlû jj ûj:jLS<u 

(A:,c:,d:,e:,f:.) 

:b ^jLS4u4j ^jjjLU 

Driver List Box 

O 

bjljSjjb: ^SujIS 41 jljSujb: ^SjjLS ^jS^Aj^ jj ûj:jLS<u 

jjLS j<û ^jjjS^Aj^ 

ji«j ûLS jjlj«b 

Timer 


>vj|i 

jj ûujIjjj: AS« I:jIjS jjb: ^SjjjJlj^ jjjJd jLS4bb ^ilJjLlu jj ûjjjLSJj 

.ÛJjjjulAA jLSuSJj 

jLS4bb (jJjJ ûw Sjljjb 

Files List box 



jbJJ djjjJJjfl jb jj :b ^LS4u4j jjjil ûljj:JJji ^iajLwb jj ûjjjLSAj 

■ IJjJ (ySjjidJ jfi 

jLS:j:4ljfl ^AjJLum 

Directory List Box 

O 

4 jAmA) Jb4& ^JWLlSIj J4 uUJj^*U 

JijA (ijfj^b 

Line 

- 

1 JûU4S44jjfl jbAl ^jJJuÛSV jb:j ^jJjjb jb:j ^jAwjSjlj^ (Jjjjû ûujljj:: 

. jiuuSj 

Shape 

$9 

(jjLûlj ûbljj:: iJJLbJS jLSJjjLuilj ^JÛjûj <u j: jSjjûjjjJu jj ûj:jLS<U 
. jj<Sj <)S<Lyj<U Lûl: ^Llû ûuiljû:: :j.:j4<u4Sj j»4S jb :j ûj4Sj :bj 

jL£4J)Lujj £4jugULi 

Data 

[g 

image ^jl jjb4l <Luj |»5f4j ûLS::^4j^ (Picture box) ^jbj<û jU4A 
.ût::: jLuui 4S4bj4j 41 4j LjIj :j4jLS::jJ 4S:jljub 1: 

41jj ijj!j»b 

Image 

iî 

o 

a- 

41 jLS4jjlS^4J^ <Ubj<U ^iLu4jLS<U jj ûJJjLS4J :jljub f»4j 

. IJjUi LSjjjjj 

v ** 

4«ljSjjj jjljub 
OLE jLS4JjLS^4J^? 





























j*4J jrf4J jJJJJJ jbiLAub4J JjJjJ I7»mV JjS jbiLjjljub ^UjJj j jLjjljub ^Lj iJjj^uO ,jjLS4Li4j4J 


(... JlU j jtSjJjjjj ujjj £)}* jlj) djj ^lw^JJ jjASjJ JjljljjlJ j»4J ^JjJuu JUjU ^mL Jjb> 

JJ (Z«<A) ^JjJjjjjJj Dlj (Alphabetic) 4J j»4S4J ^J$iw jjljSjjj J^iwjjJ <U Ij4S43jJÛ« 4) jiajlS4J4iuy 

.jj4S4j4j jlS4J4joM ^Jjjjj4j ^j jj^4j Ju4jjjj ûlj (Categorized) j»jjjj ^j^iw 


Mvj.b*UJ jUj Lj 4 j 


Forml Form 

Al 

Afchabetic Catagoriwd | 

jAppoarûnte 

1 - 3D 

1 AutûPediaw 

FaJw | 

j &3ckColor 
iWderStyle 

□ &H80O0QOTF& 

2 - Stzable 

C-aption 

Forml 

CipControls 

T rue 

iCûfitrolEosc 

TniB 

DröWModft 

13 ■ Cöpy Ptn 

OrawSty^e_ 

0 ■ 5olid 

DrewWidth 

1 

.Ei>abled 

T rue 

iF#Color 

FiStyle 

■ $HOOOOOOOÛ8t 

1 - Iransparertt 

Fûfit 

M5 5ans 5er if 

I ; FonJtTransparant 
; ForeColoi 

■fMtfv. - 

h : jrns/sets the text^ 
titfe bar pr hetqv-J en obpect'^ ieon 



4Sjjljulj ^UitjLj jj ujjjLSjj :Name -1 
. 4j4a ^jijjj 4S 4Sjjljulû tjijiu çiij}Z jj ÛjjjLS4j4J4ju. j»4j: Appearance -2 

.^jjjj ^ Ljtj : 1-3D 

. 4S4J u ujji j4A 4ilJJJ jlj^ ^SjjLjj 4&ij^ j l uL u yjjj j4A jj 4&JjS 4Û44 uk j»4J ûj>4J Ljlj : O-Flat 

4j<b ^j-ji ^ 4u4juu j.4j: Alignment -3 
. jL£4jjol&uj 4ûwjjj ûIjj ûLu u4b ^Vjj jujjj ^jj4j jj ûjjjLSjj : Left Justify 
. jLS4ojjj4£ j jL£4Ji£jj$S JLuwj^j djj ûLu ûulj ^Yjj jujjj ^jj4j jj ûjjjLS4j : Right Justify 

. IJjLSjjljjLj jli4) jjujji ^jjjS JjjjLi Lûlj: Center 

:Back Color JjjljlSb ^Sjjj-4 

U Jjj44 JJ . Jj^j Ij Jj ^SjJj4A 4) JJ 4J4A Ijjljjlj IjJjJb 4) 4S. 4Sjjljj|j ^JjjljSSb ^Sjjj ^yJjjS jj ÛJJjLSAj 

.ûjjjLSjj jlujjj ^jjjS Jjij jj 
































:Border Style <iijS jiju’ -5 

.<U4& ^jûjjj 4S jj Jjiç jlj^ <jjlûlJ jj lUJjLSAj 4J4ÛLM j4Û 

jrtul: Jjjçjtjf (jûtjjlj tJJjit: 0 

.(jûjtj jji^jlj^lûlj (jûj)j Border <ujLj ijûtjjjj IjjjI): 1 

♦.Caption jLjjlj-6 

JÛJUljjjJ ûliûlû jûiplJ j4wJj ^jLSjljjl 4SJLUMjjj LUjjljjjj jj jLSjjtjjlj jjjbJ (JjJJjAw (^uwjjj jj luJjLSJj 

.ûijlj jjjS^4j^4l 


JJ LUJ JjJ J <u 


•.Control Box jjjujS ^jjûm -7 
fkjji (pjjjJû ^LSjjtjulu <Û ^jjj jj ûujjLS4u.4ijj4Û jlujj fkjji <U JûJujû 

(jJjSjjj4S 4 jJjS jJjj*j» jût^tJ) . Pjb 

: Enable ^jûjuj <ujLj - 8 
<U<b ^jj jjj jjljjlj j»<û 
. jûi^j iijlû<U jûljuLj jjjS^Aj^ (Pli jjtjulû (»<û LjIj : False 
. jûi^j £,LS<u iJjJ&jjjj <U llûIjjjj j4ûi4jL5Aj, JUtjLS jjtjulû j<û Dlj: True 

:Fontûiji -9 


. IJuLSjjIjuIÛ JJ luAjAj ^y Ujfl ^jJjl>JJb j jjjjS jj lujjL^Jj 

•.FontColor ûijaySijj-10 

. jUj£ (jiJjljuÛ4£ (^Jjûjl 4 j (û4i-) LÛji ^Sjjj (jjjjjl jj luJjLSAj 

:Height iij;4j-ll 

4Sjjljulû lijjJU lijtjJÛ <U I^JJJÛ jj tJJLwJU j»4J jujjj jjLaj jutjJJJ* jLSjjljulû ^jj4J ^JjSujbJ jj ûjjjLÛ<U 

. jjJûujbJ 

:Left uAç-12 

Ij4j LUJJluj jû jJÛ 4£ j4A ). 4S4ujjû ûjLSjj j4w4J luuAjAj ^jljulÛ (>uu ^Gjj ^JjiûjLjJ jj C<jjjLÛ4J 

. (ûûg J J LUtflj I^Vjj 4SjjljulÛ 

:MouseIcon jrfijU^ijSulû-13 

l£jj4Û jji LL U UjJJ LUJUjIJ JÛjjljUlÛ jJUiJU JÛJLijU ÛliûLS ÛÛJ4ÛJJ <Û ÛUjûjjÛJU LUiJUJU (jjjSulÛ i^Jjiw LLÛtjUJJ 

ûijju jlu (cur j ieo ) ijj&U ûijjj 4S Ûujûjuj<u jliJûjSuLÛ 41 ûliSJu 4i«ujij tj<û ûij IjLS jûjûlw ^jû 
.C ustomjj ûujj^j Mouse Pointer ^jû<uû<ujLu ûûjjj ûi?4iju 41 jUwjjJÛ. 

:RighttoLeft u4^ jjûwlj41-14 

. o jûj<ijjij uJU jjjJU ûwlj 4 J 4 S ûLSjJ ASjjLSjj 4J Ij jlS<LUJj4A jijlJjS 41 ûjjjLSJu 

: Password Char -15 

ÛUjmJJÛJJ 4S 4JjjJLiw jlû 41 <lUwjû j4Û ÛÛjj^ 4U fe.Xt Box juujji ^jJLuu (Jjljub 4U 4ÛJUuLÛ 4Û4Ûuw j4Û 
(yiwljlu juû:jLS<U diLu j<L4 (yûjw 41 ( ***** ) jjiL«4j ^UiA 4i4Û jSl<U ûiûjlû ûliuJ guA j4li4jLS<U 

.ûûj4iL«JJ 4S (^JjIJjS j4Û 








:Top -16 


Ij4i CçUJbj j JJÛ4?' j4A 4S4«jji .JjLSjj jdjtdJ lu/A6A» ^jlj^b jJjLu ^jGjj ^JjSujbJ j) uJJjLS4J 

H * H ^ v v ♦ y ♦♦♦♦♦♦♦ ♦ 

.lu£JJ JjJjJLwjj ASjjljjU 

: Visible JjjjiSjjj -17 

4jAA ^jjûjjJ jLSdjljjLj ipj4jjjLû j jjjASjjj jj luJjLSJj 

show jjj^Sjjj LjIj : True 
.Hide ^4jjjliQlj:False 

^Width^ib -18 

. jUdSjjljjLj (^jb ) ^ujub lidjbûa (gij jjS jj ûjjjlijj 

: Window State Jj4aj 4 j ijjb -19 

i,$Ljjj4l41 QIj 4S4jbj4J <yjjSjj?4jj? ^jLS jj Jj5 jlj4J jb4S4JJjjjJ 4ÛJ ûûjli ÛJJjb4J 4j4juw ?> 4J 
^ j»4J 4 ûS4j jUûuuju 4 j lujjj ûjjAjUjj 4S ^jjbj4j ^ijjS jjjjujS jj 4S jjljSjjUb 4«bj4j4j <jJj£jL£ 

. jJjJjJJJli44 4jb-jj 


.JjbtJ JJ iJ4SjjLj44 4SjjLu 4«bj4J 45 i£4JJju2 j4J 4Sjj4JfcJ 4J <^Jjj£jJJ ! Normal 
.lujjjjjj4^ Lmuj jjj£j4w4l 4US 4j Ij Task bar 41 ûbjjSjb 41jj ^jj^jjj :Minimized 

. jU 4 Sjjjjj (jjj 4j ^ijj^jjj :Maximized 


:Max Button -20 

4J44 ^jjjjJ UjLÛAS fkjja 4J 4 j4uLj 4j4juw 

13^1 LjIj tTrue 


.LU$4£ljjUA 4J j*jj£ j4w4) 


(j4«ljj lûtj:False 
:Control Box -21 


4)44 ^jjjjJ IJJLÛ4S fkjja 4J 4Û4 jjLj 4J4iuw ^4J 


LUj4SjJjbJ4J j»jji j4h» 4J 
.LUj4SbjbJ 4J j»jjî j4m41 



(£4«3jj LjIj :True 
(J4 «Sjj lûlj:False 


:Font Under jjûLaIjjjj4j [Jj4 -22 
.ÛÛjIJ dÛÛMjjj j44 Jjj 4J jj4 (JJj4J jj LUJjLS4J 

:Font Bold jjjS jjû-23 

.^jû 4J jlû4uLjjj <yj ij4SjJJ jûUJjlÛ4J 

•.Fontltalic jjjSjV-24 


jV ^Jjûw 4J jLS4Lu«jjj yjjj4SjJJ jûuJjb4J 

:Max Length -25 

( 10) (JJjUj j4&Û 4jjj«j jj IJ Text Box j44 41 jb4uj iJJjUj ^jj ijSujUj jj ÛUJjLS4J 4Û4ÛUI J4J 

.(jujjûj juljû4j jûluj luj( 10) Ij Text Box j41(jûljûjj Ij4j blj jU 
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«fcj UajfeJ kê 


:Multi Line-26 

•.ûjjÊai j£ 4J ÊjjjjJ &Aj}jm jAJ 

jjj jjbj dbjjjj 4J jU 4 S 4 iuMjjj djjli LjIj. b Text Box jb 4J ju»jjjj jjbj jJjjj: 41 juljJ»J hLpdS: True 

.fkajjj iJjjj Ij 4 j 

IjAj jU4S TextiJjJjJ 4 j IjAj jjj Jbjûbj jb4S4U«jjij4S4jaj, juajjj jJJ d4J 4 j4j jûljJJJ IjjjjI :False 

. Jjj JJJ 4dUJb ûljjJJ tjjjjj <U j44 


•.Cancel -27 

4S4jIjI jjJ 41 jjj^jjj jj ÛJJjLS 4J 4j4juw j4j 
Cu£4Jj 4J 4S<ubj4j41 j^j4lwlj Ij4j jj4Sdj 4 Sj Command Botton j4m 41 dbS bLuli Ij4j :True 

.True ^UjJÛ ^4jlj4alj 4j:False 





jjljub (JJÛ4«J JluIj |JJÛ44 <Û (bljjj ^lwjjjj 4J jjûuS 4J jLSjjljub (JLÛ<UJ 4 jLÛ 41 (JJÛ44 <yjjS J«b jSb 

jj4SÛ J«b 4S4J 4 j 4S4J jLS4Sjbjb<U 


LaBeC 


jAw AJ jLuudj 

v * 7 ** ♦♦♦♦♦ 

:Name -1 

JJÛU j 4^4J djjjj- 4J , ûlujb Jjb |»4 j j4u4jLS 4J d4jjjiw guA 4J Qlj jU<Ubj<U <U 4 j<UjIÛ 4j4jjm j»<Û 

•LÛjjjlj (Label 1) 4S j!jJuj4j tjjb ^jL^- 41 lûjjj Ij4j 4jIj jUSjjbj4A 


: Alignment -2 
: Appearance -3 
: Auto Size -4 



: 4j 4A ^jj jjj 4S ûLSj Back Color ^îjjujS ûlûIjjjj 4j4ûlu ^4j 
.(T ransparent) ijjljSSb^ 4 j bij jûjljBack ColortjJû4aj4jjLj jûljûb Ijfjil: 0 

. jûjlj Back Color ijjj<uj <ujLj jûljjjj Ijjjil: 1 












:Border Style -7 

4j 4A ^jjjj: 45 jLSjjljjb jj jjjç jljç i^ibl: jj ûj:jLS4j |»4j 

jûjl: jjj^jIj^ jûljjLj IjjjjJ: 0 

ijûjl: j$£jIj£LÛIj ijûjl: Border i£Jû 4 «j AjjLj jûljjj: I::jÛJ: 1 

:Caption -8 

jLÛwjj ^uwjjj i^jjIw 4j ûûjjLSaj jj: jAw ûIjj 

:Drag icon -9 

. :j£ JÛjjljjLjjJiwJJ jUSol^ djjLS ûLujSjlj iyjj4Sjb: jj lujjLSaj 

:Drag Mode -10 

: lujSj: j^ 4 J ^jj jj: 4S Drag icon |^j 4 j»uy 4 j jJj4j 4 j 4 jjw f*4j 

.ûbjjLSDrag iconQlj: Automatic 
ûLS 4 jjLS Drag icon LÛ!j:Manual 

:Data-l 1 


Databasc <u <û<ujLj 
: Enable ^ aj<uj <ujIû -12 
4jaa u^jj jj: jjljub ^jlj 
. jûj$j jijLSAj ijûljjb jjjS^Jj^ iPLS jjljjb j»<û blj: False 
. jûi^j ûjLSAj iJûdSjjjjj 41 ûkûljj:: j<Lu4jb<U 4 <UljLS jjljjb j4j LjIj : True 

♦.FontûijS -13 

. IJjLSfjljob 41 uw4J4a ^uj£ ^Jjl jû44 j jjjjS jj wUJjlS4J 

:Height-15 

:Index-16 

jJû4jjjj fk4j ijjjjjl 4 j Tab 4j jb«j4uwljS |PIS 41 jLS:jlj«b (JJû4j jjj ^bj4Sj:: jj ûu:jLS4j 4J4ûww ^4 j 

jj4jjjjjjS:: 


+jj!jS |jub 4S 4 j |jLwS 4 j ijJÛ4b 4 jjLu 41 jJ ^LS^jJÛlw 











Itt< B*w 


ûûljûj: jJLuAjLSJU ûlj) <Uljj4J ^i :jSljpJjljp ijiji UuLp jLS jJjLûlj ^iijZ ijjLSuljjSj juijji jj uJJjLS<U 

( ûLSj UÛj (jjlSuljjS 

* ** v 

:Name-l 

J>ju j4Ê4j SlûjjJ- Jj , ûlbULj Jjlj |»4J j<LuAjLS<U dJJdjiw guA <U Qlj jUJULjjJU JU JÛJLuLÛ JÛJÛuu f»4J 

.ûjjÛjIj jljJuu <Lw ijjlj ^jLu- <U ûûjj: lj<U ûl:SjJ jUSJjljj44 

:Index-2 

j J u J jjjj j<u ^jjjjS <Lf Tab <u jLujJLuwljl ^jLS 4J jLSjjljjU ^JuAj jJj (^ujJSjj: jj lu:jLS4j Aj4jaj j4j 

.jjUujjjjlj: 

:Locked-3 

4 j 4 A ^jj jj: 4SI: Textbox <jSjjJjû JJ ijjLSjljjS <jiijSi: j4«<u ûwj: jj ûjjjUju 

.ûu4SjI:Lû ijjLSjljjS ûûljjj:: T rue 
.ûj4SjI:Lû ijjLSjljjS ûûljjû :False 

:Text-4 

. I: Textbox jjljjLi 4J <ui: Caption ^jLu- <U 4S 4S:jljjLj ^Sjjjjû <yjjjS jj ûj:jLS<u 

:Tab Index-5 

jujJjjjJj 4 j ûluj ijjjJj jj ÛJjjjjjjU ûlJjjjUj ûûjj: I:jjÛJ 4S. jLSjjljjû ^JjJUjjj ^jjjJSjj: jj ûjjjLSju 
.ûujSjjjû: jjljjû ^aj Ijjj ulû Lûlj ^wjjj (4) JjUjjjS 4jjjû jj. l:Tab ^JjJjjjj 4 J (JSjjUj) 

: Password Char-6 

ÛUjjjjjjj: 4S JÛjjJLlw jû 4i Uuwjj j4J ûLjjJ^ 4J Text Box îgUfjji (jûjJLU ijjljjû 4J JÛJUJlû 4ÛAij4J 
^yjjw <U ( *****) tj&uAj ^Lûu 4J4Û jSJ<U ûûûuû ûilu gjA j<LuAjLS<U UjjjJU .ÛJjSu Copy ÛUjjljûÛ 

.ûûjAjUj: 4S ijjjUjS jjj (jUuljû jj Ûu:jLS4j ûLl ujjJA 

:Scroll bars -7 

jû uJjuÛ ijjjiu <u Textbox <U jjj jûûj jlSjj* >wjû jjS UûL«jLSjjl>wjj jJûjUjû JjjSU ^ûl: jj ûj:jLSju 

.ûujSj: jj~ jU Çjjlfu 4S SJjj:j4A jû ^jjjiu 

Scrollbar=2-Vertical 
Scrollbar= 1 -horizontal 
Scrollbar=Both 


+jjljS jjû <S <u ^iSS <u ijJûAu uuLÛ jU jû ^LSjûjûju 









*.Down Picture-1 

;Jj4wjJS ^jSU Ljlj )jjd£ii dStjljjÛ _)i>uA3 S Ld S diûjLS jU4S«jljj|j j4wAJ 4jjJ ^yJ j4SjJJ jŞjJjLSAJ 

uuj IjlS 4j4jlw j»4J jt^Jj . jjd£û} jîjbj <Sj. U j IjjjjJ 4S uu£JJjJJ d4J4ÛJjlj4J ( J Button j4j j4«4j 4S4mjU 

.Graphical jj jjjjSj Style ^jjjjjJujLj 41 lujjj Ij4j 

: Style-2 

41 Style y^-jj Lj44 jJjjSj 4J4juu j»4j LUjjlplj 4S Down Picture ^J^juw <yJjSlJj4w4J ûwJJ jj ÛJJjLS4J 

.Graphical jjjjjjS4j Standard 



LiS'i’ ttoxp 

. juu^jjj jlSjjLi jjj 4A List <yû4J 41 JTiiiJjj iJ Ij4j jLSjTmp ^jJûw 41 jLSjjU < y uwjjj jj - 1 
. jujjlj Sorted=True ^4 j<uj<ujLj 41 Ij4jjjjj jjj4j Jj4jjjj ^bu jj -2 
. jjjjjlj jIjSjjLjj jjj4j U Height 41 Ij4j jjj4j ^jjSjjLjj jj -3 
jjjjJlJ jljSjjbJ SfjUj Column j4w 4u^JJ Ij4i SLwjljS 4 i 4 ? 4j jJ4iJ jU4S4luul S4j4i JJ -4 
Integra height = False jjçjj Ij4j jjjjj4i jjwjjj <yjjw U juSjj luiu! 41 j4^4j -5 
<jm4j 41 lj4J djjl. jwLj gjt4 ^LwAjlSjJ ^4j U List box 41 dlifjj 41 jJbj (^JjljuljA) ^jj ijSjjbJ JJ-6 
Ij4j jjjjjwl44 dû? jj 41 jjbj Lûjj lujjLS4j Ctrl <jj4 4j jUiwJj jjSaj ,»LJ4j Multi Select =1 -Simple 

. jjjjjul4A Multi Select =2-Extended lujjj 






















UajfeJ 6 tsiê _ 

fcLSjjtyiJ <U JOS LU 


jt&jb-Li 

i£6$J» <U jU$Ij 

form 

frm 

picture 

pic 

label 

LBL 

text 

txt 

frame 

fra 

command 

cmd 

check 

chk 

option 

opt 

combo 

cbo 

list 

Ist 

horizantalsb 

hsb 

verticalsb 

vsb 

timer 

tmr 

driver 

drv 

directory 

dir 

file 

fil 

shope 

shp 
































(£ş&aj jj*j\şjöî d£ Visual Basic i£jL£$j jAm ^[£&jAm 4j dl a£j£aj Jfidjdj 

jj Modules ^Sdjlif ^a\jS^jj ^uj4Sjjj j jjS 4j ^uj4£)6J j j*jj£ ^jL5jj ^ujASjjj 

** ** V V ♦ V V V 

.LUjJJJ ^LbJ 4J 4 jIjIjjLj j»4J (£j£4j (J4iljl£ ^4 j. jçUjUJ jU^SjjJjJ <jJL£Aw4J jjj4A 



The Form Layout Window 

iJ4S A u j S juljJJJ 4 jJ^S IjpAJtjP jûU 4 mLm (Jjjj jAw 41 jJdSj (JjLjj jU4S4jjj£ ^ y jjS jûljJJJ b4Jdj4M4J j>4J 

4J ^ 4j jLwb (jujU i£jA4j Form layout ^aj4*j 4 j 4J jjj& ^jj*j ^Jj jSjj jjJSj S lwh 

.J’jIjSjjUj foi^ tjjJjSJjtS ûwj: yilSajlSjjUlwjijljj- (J4 Jjj 4J 4S.(Drag & Drop) 4j Qlj lwJjJj 
























































jL 5 jJj£ SL&j 

t 

Ij jlS::jS 4j jjjJljdjLw t uJjii (.jjjjJjjdiU jjjJljdjLw JdjJJ jlJUjAA 4JjJ 45wijj ^SiwU jL5jJj5 ^uwjjj 

. dj:j5 Ai jLwJ^IJuuJ jb :j j:j54j4A AJ «j4jj454j :jLw jUj£ jj:Jb jjAA lujj: 4jjj Jj^j jjULj 
jj ^4S::jS4iUûw4J4« ^jjljulj jAjjAwAi Double Click dwLSjj: ûL:: □jjJlw JJjjlIjuU jA4 jj :j£ ^yuwjjj jj 
Private Sub ^4wjj jj:jA 4 jljjj 4 J jL5::jS * ûjj4 S«:j4: jj jU:j:jlj^ ^4j:j4jû 4j j 4 j Uûu jj45j juwjjjj 

jjwjjj:: End Sub J)4S4i 


Projectl ■ Form'î (Code) 


f urm 



Prfrkite Sub Footi Load(î 


l L °»* 


<Uiu jj Ujjj :j iy 


AJ 4*^jlyliyj Jj I34J AijjJJJa 


fJ^ li 


^JULUjJJ jJ LLUjjJ ^LwL 

j»4J ^4S4J^lwS Jjiw 45 jjjjJ JjJjlj^ (J4jULwU j4Jj4w4) 4ÛmJjjJ Visual Basic (J4aUj4J ^jLSjjjS ^Uwjjj jj 

. 4J4JJjiw 

j IjjU (JjU . (JJj4jJ 4jjlû (JjU = £jj 

: 4jjjU 

jjjUjS j4j j4w4i j:jS ûUS 4: (J:j4j jj jûjl: Command Button jU4S4«jjj ^jLSjj j4w4J wuj4jUj j4S4j 

. jjjjL jU4S4wjji y5i:j 
jtwjji:: 4j:j1w ^4j 4jI:jS j4j i£:jS 

Forml.backcolor = QBcolor (Run * 25) 

( 4j4j:jIj5 45 ;j 4 jjji j4j IÛIj ) Form 1 = jU4S:jljwU ^jU 
( jU4S4«jja ^ajjljSSU Ulj) back color = 4S4 j ^jû4jj 4^jU 
( lo£::j:: diSjjj diSUSj44 4: jd: jU :j ^ljajjJj^j i5i:j ^yjjjl Ulj) QB Color(Run * 25) = £ji 



































jlÛJj'JJJ; 


^Lşû 4Û ^AJuAjLS<u 42 t£4j!jl:jS j4j jj« 4A <U <U <u ^jjjj b Visual Basic 4J jbjjj 

.Keyboard jLS4«Sj: tjjUlû j Mouse j«jU t£j£ <u uIjjj 

: jmjU jjLSjAJj jLS«jl:jjj -1 

* v 

u!:::jjj 4bjt:j2 JjjljjU j<u>4J j:jS4UiSd4Jt£)j: LjIj j:jS(4UiS :Click/! 
.ûl:::jjj 4Jjj!:jjj UÛ 4Uj!jj|jj4u4j j:jS iUiSjj: 4j LûljtDouble Cliek/u 
.û!::: jjj JjjI:jjj jJ4:::l: (ibjljjU j4u4j jyjU dJûLS lûlj *.Mouse Move/ç 
.û!:::jjj djjbjjj :jljjlÛ j4j ^UÛjSl: ^ÛLS 4J ûLS:: :jl>«IÛ j4j j4u4J i4U1Sj4ulAj124j Lûlj:Mouse Down/: 
.û!:::jjj ûbjbjjj L>lû ûûjS:JÛ44 4UIS 4J ^Luti j4m4jIS4j JUûLS j:jS ûLdS ^lj: lûlj :Mouse Up/4 

: JjjmS £jLSjA4j jlS:jl:jjj — 2 

.ûl:::jjj DjjIjjjj LaUj 4S::jjjjS j4m41 ûjjSj!: jLS4«Sj: 4) ûUS4j j4u4jLS4j ûUjLSLÛIj :Key Press/I 
LxLû ÛJjS4û44 ûw:: L)4j:jU 4S::jjjjS j4u4 1 ûojÎjI: jLS4«Sj: 4J ûUS4j j4u4jLS4j ûUjLSLÛIj :Key Down/u 

û!:::jjj 4ûj!:jjj 

. jjjS: Jj44 (4S4«Sj:) 4S4 j ^S j4u4J ûw:: 4S û!:::jjj 4S:j!:jjj 4 ÛLS j4j lû!j:Key Up/£ 




























^JJJubjAJ JÛ4£ 42 (ûljdj J«b<u Ij jtS4u4jy 4J ju4i jljJu J jjU i4Lu 4U j}jjj,U (£4«bj4J i£jÛ4iuJ jûluj (£Jj4j jj 
■ jh Jji jUwb jiuJ 4 S (J4jIjI jub j4l jJj 4 A jj jj4iu t4lLu£ljJ 4J ^jLjjj4w ( <jS4JjjjjJ ) 


(t4S<U if4«Ljj4j • 

■ jj4SjJLU LUtJJ 4«bj4J jJjUUjj4w4J JJ jJj4SjJj4w JjLw4wbj4J ^L^J^ (£jjj4J ^«454J jJ4jL 4J LulU 

: lJ4S4«bj4J 4j gjbb 

jj jji ^blJ uû4ujj^ JJ Form ^jjî jb 41 4jbjjljub ^ÛLuAjISAjj jblJ ^U^jjjç l4jU4i4«bj4J4J jjub 

. jLSjjljjb 
: - 1 - (jtwj4«bj4J 
.Visual Basic 6 (J4»bj4jj4w jLu^jj Ljjj4w -1 
. jj45u (Jjbj (£jjb ) 4S4jjjb lijjj- uLjj jLwb -2 














































J'Jd&S sjjj jLwb^ . jjd&j Open jJlwJJ dû£ LxLû jjjjjjjjjAA Standard EXE IjjjJJ 4ûj aS 

jlSdjjjiJ c£JiJjjjjj dj jL£4JdJ4*j JjjD j jLSjjIjjIj ^jJLb j Form ^jLSjj4ju 4j 4S 4 luj4Sjjjjj bLuJj 

v V ** *** * V **^ ** * 

.UjjÊiijj- Jj 




jj lj4J jjJb4J jbjj4jb 4J 4J bUS4Jj4£ 4jbj4J ^Sj j4w ijbjjj4J jjjb j^S^ 

. jJdSjJ 4Sjj4jb 4J (J!jLj j4w4J bUiS Ij View ^Xubd 4J . ii)4JJj4JbJ 4J j4A i£Jj4JJtJlj4S 


abl Text Box i£jljuU4) jjASiJûu ludh IjjjAw< p>jj& lSj^jd j^wAJ jûjb j^jijjU i$$jL4 ij4j ^j^ Llmûj -3 


SjjAi j (jjjjj ^jLS uwd: LxLû jûd:b ûw<u<u ^yjjj Ai jjj^ ^jljjLj ( Drag & Drop ) jLwoSlj ^jlw <u 
(^tb j (JjjjJ jLS4Ji4j4u4 b b Ai jb jwjb (JjAwjjS (Jj^ Jj 4SjjIjjLj ^AjV ^LwjSIj i£jA 4j jj4SjJ 4 SjjIjjU 

.jçwjjjjj juujjj 4J 




j4AiJ jb^JUAu JLub buiU jujlJ j*jjfl ^jbjjj j4u/4J jbjjljjb jj$ 4A 4Sbli 

. jM>iJ 4SjjljjLj 4 j u4jjLj (^jjS jlub 

4J. jiwjijjj dljjljuLj 


ijjLSjj jAwAi ûw4j4j ^jjjw 4J (Drag & Drop ) 4 jj 44 jjjjJjp I Command Button (Jjljjb -5 


Ai jljjLjjljy 4J jLuLtJjl) b<luj (J4L}4jljj4J f> 4J 4S Ûp4j JU4J jUwdj4j . 4SdText Box jjj <U yjjlj 4S<Ujja 

. dj *j4b4S*j jjbjjj jj ^jb* ^ djbjS (>4 j 4jIj4S 4j 4A Command Button 


jUjjAj j ^jjjj (£)L£ j*jji £$jjj4w4J jLSdjljjb dlijljjbj4A jbl«Jj j4S4j 

j 4) bbJb j4A Ij4j ûjjA&ötyi j\ui uu4A 4S jJ4SjJjJ4u/ LxLu jJAitJ 4Sjjlj*ab j4w4J bUlS IjAj jj^5j 

. jbdjljjLj jAj ^jLS^JjJJJ 4J Jl^jjjjj ^JLjjS t£jA Aujjj uuoSjIj AjVLi- 


jj^Sjjjjj jLSjjljjb 4 jjj 12 j*4J 












































































jLûLS<Udj<UJA ajIj Sjmh 4kj£u IjAj Command Buttoiijlj^ j Jj Text Box ^LjlJ (jljj -6 

aj ^Ijjaj tilJj jLS<UJû<Uj<Ujtj ^yjjjl jLwU «j UJjjijjlj j4A j<w<U jj>5 4LUS 4 j b- jjJij Properties 

tJJJjlj^ (J 4J 4 lm.* > ' J4J ^JjJjS 


jLS4J4j4«J 4uLj 

jLSjjljulu 


(JJU44J4uLj 

(JjLj (J4£4£«jljMjj jj« 44 (pj4j JjS jwJj 

(^çLLAJ J ^1Lj4j 4J) 

Text 

Text 1 

jjlj 

Caption 

Command 1 

|Û4«4J 

Caption 

Command 2 

^jUj 

Caption 

Command 3 


Caption 

Command 4 


. ul?a}j3i 4jjj l£ j4j jU4S4jjjj jjLSjj IJULû 4 j 4J« jlSjjljjb (J4jLj4jjw j4j .JjLSdljjS (Jljj 

*!_!!_!_v_*_!_T v 



ûl^dAjdA j»4J ^jLSjj iJUbbJ 4J jISjjIjhjIj ^sÛLjAIum <*4j £)LSjljj^ ^IjJ 

*!_!!_!_v_*_!_ ** v 


i 


jjJ j ÛJ ijjji djjljjLj j4A jj jjjjU jj4j ^jLS Lûtoj jjÇjJJ Jjjj4w (J4JJjlw /»4 j 4i4jjji (JjLSjj (pj4J ^IjJ -7 
ûwJ j jj (JjjS LbtJ jJ4SjJ 4SjjljuLj j4w4J Double Click UkLSjjJ lj4J UÛjljuLj j4A jj jjS ^uwjjj jj . juujjJU 

. juujjJJJ 


: juujjjjJ jjjS !»4 j 


l»jLj 


fkjLj (JJÛLajS jj /I 


Textl .Text = "jSLw jjjJLL^j j^-jJIJUA" 


IjjjjjIj^4J (Jjj4j i41jj jujjlj End Sub ^41 Private Sub Click ^jjj jjjj 44 jljûj 41 jjjS ^4 j UJjjjj' 4 j 

jjjjU 
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. 4j i£JJJj4u<4l |E3j jAmAJ jJjS i»U1S |£^A 4j jj4^jj|j i£>jAm 4j jLwLş 

: jiujşja a$S f>Aj fcJ'UAj (4J4«4 j ^JjUjS jj /u 


^Jjljul4A ^u>w 4J jLSjJjS t£dj4fU 4 j ^Luu^Ij jT. < : ^uljJJJ ^iwjjJti jj £ij& 45 4 itjji ^jIjjU i^jj4jj4j4J 

: 4jj£l£ fkjj jiwfJu£i tfijS LbLu jjjjjjJ44 ( Ommund 2 ^jijjU jl5jjljj|j 



(Command2) 45j)I>«Ij j4w4J 4jjj5 dU5 ^jjj 45 jjjjj jUujp- i^454j5uw^S LSjj j4u 41 jûlpjj Ujjj4a jj 

: ju^jjjjj jj tftijS f»4J jLwU jj* jU4S<Ujjj lijjj j4m4J 

Textl.text="25" 

Ujjj 44 jj Private Sub Command 2-Click() ^jjj jjjj4a jl^u 41 jjjS ^4j j>ujj ^jjUjS ijtjlu jU44 4j 

. End Sub 
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ijjj4j j4J4l ûjwjjjj jj£ ( (Wj44l4j ijJjUj ) j4j^w ijJjUjS ^JjS 4S (j4jjjlj j4J 4uiwJ4l jJ LuwJ 4Jtj |ÛJ /g 
: 4j4jjjlw j4J jw4S:JjS 4S «ÛJjjSj: 4S4Jj44l4J ijJjUj I^J4J j»5f4j jjjuuJ ^jLSjJjS ijjjiw jU44 4SjJjS ^uwjjj 

****** * **v * **** ** ** 


Textl.Text ="4748599" 


ÛjJJJ 4jjjlw 4J 4S4 «Lj4j 4J Lu 4 ^JlûjS Qlj jU4S 4*Lj4J4l 4jjj£jJJ (jJjS 4S JjS jjljj /J 


End 



jjj£ UklS 4 j jijjAJ (jj4ij ) Jj4jj45j ^lû jU4S<Uljj4j jLwU ^4JJjiw4J juljJJJ LLtoJ -8 

iSiij^uS j4wu4j F5 (j4*SjjJ 4j jL' 4 jbJ 4J 4J Jjj’Ujj . 4J44 Ijjjjj4w ^JJ 4j jLSjjtjjL ^utul 4j <L | ► | ^jjSjl- 
(pj4jjjS ^ûlû ^ÛLS 4J jjjJjjJJ jJ lj4J Ûj4jjl: (£4S4 «Lj4j 4J jjj^jJJ jJ ûwJjU ^4«SjJ JjS ûjU4j jjûL j4^4J 

. jj4SjJ ûLdS | ■ | Stop ^jjSjlû jjjS^4J^ ^jjSjL ûûL)4j 41 ^LS 


. j4Sjj jwL t: jjjLftl: ^S4 j 41 Ij4j jU4S4«Lj4j ^jûwljLj jJjS jj4£ jJ-9 







(Save) (jLS&jj *JJj5 jjb) jtaljL 

m 

jj< jj^5j(Save) jLûlSjjlS47mjjo u j4jj.u«jS,jjLS4jbj4j 6ty}j 4) UIjj^jjj 4A <jjjjSjlj4jijljj 
jA4 jb dj wbjL^ ^UjS)4AglS AJ uutêdA jbdj jjjj jlj4J (JljJ AJ jjjm jb4A AJ IJLuJ Visilcll Basic (J4jbj4JAJ 

4J jjASj IJLU (Jjlijljjl jb 4J jjASj £>LSuiUJ juljJ4J jjljj 4S jj4Sj (Save)jjA^ jUJ54jl5 UÛ44 Ij4j d4J4jjjJ 

! UUJ44 4J4JbLW j4j j>«4J4j£ jj4^ jAJ jjjSj ^jljJb jb 

jj Save Project As... jbjj Ij jJjS jjb Aijb- j 4 S<ujj Save Project j4u4Ji4IL1S UFile <^4j4J-1 

. jJjS jjb 4J J4JJJ jljb 


^ave Fgrml Ctrl-l-5 


Ffe Edit View Rrciject Fornnatj 
Ne-w Rrgjeet CtrL 



: 4J4jljj- (J4J4jjtf j»4J LUj4S*JjJJ jj jb Save iJJjAJÛ 4J -2 



(jjljjJu 4b (jjb Ij File Name <^4 j4J j« jj^Sjj &bj 4S4jjj£ jjb <yjj« ^jjjJj Ij Save in <ju4j 4J 
Ij jjuuj (Jjjjjj 4J 4ÛJ 4 S 4jjj4J jj jj4Sj jijbj jb4Sjjjjj 4 j u4ub <$jb jûljjjj. (Forml .frm) 4S4jbj4j 
. jj4Sjj Save j4m4J ûUIS jLwb * jujjjjj ( My Project 1 ) <$jb 4jbjjjjj j4S4j ^jj4jj4j4J 

jbj4j 4J jUSuljb j JjS jjb jb4Sjjjjj I TmV) 
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4£4j AbLd ûjj\£»* LjIj ) bli 4 j u»jSj &mj£j Ij4j jU4S«jjjj ^jjjj jIj4j ijlj: 

4bU Jj ^4 jIjIj 4J - (ûljl>jj4J4jl: j4j4J ^uJ Visual Basic ^4»ljj4J 4S (4ûj4Jj^fcsjS j4j 4J juû^J jLS4J 

.i4Lj4j JljjşU (J4 aUj4j 4j wujLj ^4jjjj4j 4S4J y^4J 
: jJ4Sj JJJjljj- li^jÛLj- |»4J iiJJjJ4J uLj: Ij4j j:jS^4J ^ ^jjj^ ÛmJjJ jj U- 

Make Project 1 .exe... «< File j4u4i 4L1S -1 

wuçjjjj: |J4 j:j1m J4J Ij4j (JjLj 4J Ûjjlji4j jjjj- jU4S4j|jj4J JJJL4 j4^4J 


Print Setup. 


Me^ PfpjectL@f<e-. 


rou 


Project 1 <U 4S jjU IjAj ûUl IjS &>LS^4jj^ ^j^aj dj$Ljj4& 4 j jU4Sa*Uj4j jdSdj j»Û4j 

<j 7 i(MÎ j4m 4Ju£jj <jJlS4J Ij4j My Project 1 aj jLaj^jj t£4S4jUj4j Ajjj <m jj ujj^Sjjjjj 

Make My Project 1 .exe... «< File 


1 ^ Print... 

Ctrl+P 

0 Print Setyp,,, 


Make Fkiy pro jfict 1 »exe,.. 

1 Mabs P:£qÊct Grouî*... 


1 



. jJjS^aj^ ^jjlfi aj jJjS jjA^ jy jj^Sjj Save jAmAJ d L dS Cmjjjjjj 4S ^^jjj4^j jLûLj -2 
U L dS jLSU dS^J ^j^JU Ajjjjjj dijjU UjjjAA jJ^Sjj ^jLjj jJjS jjd^ jj (jj) fiî ;£$jjjj Jjufi jUAA^ 

jj^Sd: Save j^wAJ 

^ ; TT^ ; ; ~ ~ v 

jjj^S ^l>£ ^ljjlaj 4 j diuJ4J ^JIjjoi ^*ULjj4j jJjJjjLw ^JdjL# s 4 j Cjjjj jJjAj ^jAuj^ ^Aj LLloj 4jj>1s j»4j 

jJdJJJ jlSjA* ^ULJj4J jJjiJj^Lj JJj4J 


jAjAl J*&aAJ JjUj jLSAJ yJ jlJJjJjJ UJjj^ jfcdS^J ^4 jLJj 4J ^U&j|J4i ^J^Ij^ jJjAJ (jlj^J^ 
-jjjjji^U ^IjIj- . <L)UaS^j ^4*Uj4j 
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jj I Sjj jJjiSiif’ j* j{M£i jUjL£4J ^LuSljJ 4 j 4S4j 4S 4j jj^jL& Ij ^j4£4j ^w4j4J d£ ^4iLwLj j4j ^jj4j_jj 

- f>d£ii jLÎUj^J j»ljJJj4J (juUjM - . (jt«j 4j|jj4J 4J ju4J jljjj ju j»ljJJj4J 47 iiiJj) jj jLû LSLil^J 

4S4j|jj4j 4J gjULi 

^ilSjjjS yjjjS^^Soi LAJjj4A Jj (jlJjlJjj Jj4j" jj jljjlj 4J4J) u4jjlj ^jlJjS jj 4»Ljj4j ^LSjjljjLj ^LuAjLSA.' 

jJjJwj j uLS JjIjj4j 4J Û4jJIÛ 
jlÛ4lwJjl| jjljulj 
ûLjJ 4jljljjlj f>4J jUÛLwJjjJ lJjU4J4«ljj4J j»4J 



( 4jij 1 ) Text box -1 

( 4ilj2 ) Label -2 

( 4ilj 1 ) Timer -3 

( 4ilJ 3 ) Command Button -4 


: jrLwj 4 jUj4j 

jj4Sjjjjj 4jjjûw f>JJ jU4S44jji (jljjj j4«4J jLS47mJj O jjlj^lj -1 



: Jjjjljj" tJ4J«jiw j»4i Jj ( 4>|jj4j ^LSjjjjUjLS^j jjljjLi ^JÛ4«J4ulJ ) jU4J4jow <jûjjS jLwb -2 


jLS4jJj4«J 4 uLj 

jLSjjljjlj 

tH 

^jj<wj 4^jLj 

(^) 

Text 

Text 1 

(ijUj&JJ ii(^4j ^lJ4J 4J) 

Caption 

Label 1 

(jUjftJJ ^0?4J jPIÛAJ 4J) 

Caption 

Label 2 

jlfO^J 

Caption 

Command 1 

jljl)4JJ uLS 

Caption 

Command 2 
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Caption 

Command 3 

l 

Interval 

Timer 


tpjAj jj jj jb:j£ jlS:jljjb jLS::jS ^:j4*i 4 j 4J. jLS<Udj<Uj<U:Q <yjjjS j jLSjjljub ^ibl: tfljj -3 


::jljS jijb: Ulu ^LSj:jS 4S :j:jIj^ ^ 4*.. ^ j»4j ^jjjjS 4j. uIJlj ^bu 4 j ^j4jjLj ^SjjIjjS tSbjljjb j44 


UmJjO ^jS 

jlSjjljub 

Label 1 .Caption=Date 

Command 1 

Label 2.Caption=Now 

Command 2 

Text l.Text =Time 

Timer 1 

End 

Command 3 


.Run jj4S:: ^^4j 4S4jb j4j F5 ^4jSj: 4j jb 4m4j 4j — 4 



jkiU^ i4Ubj4J. 

. ûûjjJj: jUuJ uLj: 4jjj JjbJJ^JJ ^iLSjjljjb jjjj j>wjj ^LS<ubj<u<U Lu> <u<ubj<u ,»4j 

<ubj<U Ub 

^jLS <U <sS<Ubj<u djulS wjjSj: laiLSjjljjb Properties 4J ^jLSuljjS jj^4S 4jjj4i l:4S<Ubj<u 4J ûw4 j<u 

.ûûjI: jjjS^ 4 j^4J 
jLS4Lu^j jjljub 
(jii^ jj) <4l4J4jjj -1 

(4il: 10) Command button -2 


©I 


jrLwj 4aUjAJ 

















































llu j4j jLSdJJjfaj AujLj IjjLuj ^jjljjU 41 -2 


jLS4jJÛ4«J4ub 

jbjjljjb 

c>» 

i£JÛ4U4uLj 

( jiw ) 0 

Left 

Image 

jAA 

Picture 

True 

Stretch 

( jiw ) 0 

Top 


: 4 lu gjjj jjS -3 

4ulj*d$$jj jljSjjbJ (JJlUjS jlû 41 djjjs j44 ÛjUJJ 

Image jjl>«b-l 

uJjJjşUjJJ jkljU 4j ijljjlb 4J jH4j uUjJjhUjLj (JjI JjS (Jj 42^ ijljrflu 4j 41jj jjljjb 


Jj4JJjLw |£J$S -U 

ijJûUjS j4w41 lUlS Jjj:. (False) jj4jjjU jj Visible Jjj4Sjj: jjû4û 4ulu (yjjjl 4 j u11wjjiÎ4a jjjS j4j 

** * * *** ~v ♦ ♦♦ 

ijujjjjj JjjS j»4J jJ^Sii (Jj4jjjLw) 

Image 1. Visible = False 


jjj4Sjbj (jjjS -g 

.JJJ jjJ JjJj4JJjLfi |JJj£ (JJ4 4J 4 S4 U J j4S4J 4J4S4UJ ^Uj4SjbJ jj JJjS jk4J 

Image 1. Visible = True 


JjJj4w ijjj^ -J 

^JjJj4J j4w4l jw4jVj»- j»4J« 4SjJûUjS j4w4l jLû JjS 4LLS 4J jjjj4wjj Image 4uj (^jJÛVjJ- jj LUJjlSJjJjjS j4J 
^jjjJJbj^JJj ûj^JJ JjJj4w jJj4J Ûw4j4« (ijljjLj Ij4j jjJluJ j»4S (J4S4^-jj j4^4J ûJÛjjj- 4J ûuJJJ ( ^jjjlw ) (JjLu 

.ûuJJJ4jJjiw j»4J jw4SjjjS ÛU£JJ JJJjlji- JJj4J jw4S4^jÛ 

Imagel.Top = Imagel.Top - 50 


JJJjlj^- |JjjS -4 

4J4JJjiw j»4j 4S LUW J ÛJ jjs JjJjljj- lijljjb jj LbûljJJJ L u l U fbljjlj 

Imagel.Top = Imagel.Top + 50 















36 4yê$*êl4@ 

Ûttlj (^V —j 

iJöjöjdJ j&udJ JiAiMjP' pdJdSûdjUjSj&udJ jUj Jj5 iîLdS 4J uwlj (^Vjj ItliagC 4ijJ JJ JJjS j»4J 

^454j jj ûijJJ umIj jjjJU Ûm4jJU ^jlj^b Ij4j ûljjbj gJ&J&jj jJÊJj iiljjjjj* 4J ûIjjj ( ^J^mLj ) 

.LLUû^JJûjlS pJJ JLJ& JjjS ûl^JJ u4£ jJj4J j24£4^jJ 


Imagel.Left = Imagel.Left + 50 



£*}s -j 

Imagel.Lefl = Imagel.Left - 50 


(4S:jljjLj Width ^jUj Height £ jjAj (jjjjSjbj Dlj) luuAjAa ^jlj^lj ^ijStjjdS jj ûjijLSaj tjlyL) ?>dj 

ûltti 4j«jJu2 j»4J JîiiStijS 

Imagel.Width = Imagel.width + 100 
Image 1 .Height = Imagel.Height +100 


jjjS djjşj ii:jS -d 

Image 1. Width = Image 1.width - 100 
Image 1 .Height = Imagel.Height - 100 


End 




jj 4 j4j ( 1 00,50) l:<sjljjS jA) ^ljUj jAj 4S jûljj :j4 j &udpj 

■ £ASj JjlSluti nmji) n ^JjJjS 

uûlp:: jj 47niil 
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Luijji aiLu Calculator jUjj! jjIj ^UuA>LS4j4j 

jLSdjljjU j UiJjiiAJ Aj jj iSa lmhjjA i f lnij4 J jjjjLU (£4 jUj4j JjUjjj jduAJ Jjjjjui ^4 j 41jj Ljjj4m 



! ^LuijL^Jb (jrjA 4j 

Optionbutton 4J 4j|j -1 
Textbox AJ 4jb jju -2 
Command button 4 J 4jb d4j -3 


jj j^4Jl J^S j4j jj4£jj ( jkljfcj 4 j ) (JJULjjS j4m4J i»U 1S jjjj Ly u 

Pricate sub commandl-click() 

Dim x as integer 
Dim y as integer 
Dim z as integer 
X=val (textl.text) 
y=val (text2.text) 

If optionl.value= true then Z=x+y 
If optionl.value= true then Z=x-y 
If optionl.value= true then Z=x*y 
If optionl.value= true then Z=x/y 
Text3.text = Z 
End sub 


F5 4j jJ^SjJ^ djjjî? 4S4jUj4j jL2L| jj 

jutfj^jjJ j»jjjj ^JjLtj IJ text2 ^m4j 4J Ij jJljJ4J (5 ) lJjU4J4jj>«j j»4J JIjj juujjjjJ <J4JJjUj |J Textl ^w4j 4J 
• JJi^JJJ 120) UjU4J4jj^<û )k4J 41 jj jJ4SjJ f>y*j 4 j tfJÛUjSj4w4J 4ULS IJ ^jlû]£ 4J (4) 41 jj 
























jp&Jj .û<u<nj New Project b Visual Basic ^4 jUj4j ^jj4ijjS ^ljjj4t« 4i jûljjjj j$£ /1 



$ ij&jjSJ jj jUjjj 

(J&uj JtiiJ (JAujSjifp 4 i lulj New Project $6jJM 4J (JJjJjlj^ ^JJSbjZ jlj.f jAj 4J jij5 d Ul S 4 j/j 
.ûjj4S4jjbJ4j <u«j<uû 4 j j»4jjjjUb <U Qlj Don't show this dialog in the future 


Visual Basic 4»ljj<u ^Ijjjju 4J i$a$A j jj «j<U1uj4SUj jûljjj: jjç New Project ^jjAjû 4j ^jbV ^Ijj-2 

î jJjjjjJAA ^jUAmJj jUj£ ^jjjjjLjJj jûfBJjJJ A&djJM 4J 

UUIS Environment <U jUlu Options j<u <LU^j: b Tools JLuJ <U Ij4j 4jijj (Jjbb j»4j ^jj4jIj 4S jj /j 

. jj4Sjj Prompt for project j4w4i 
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i£)LSjjj<u«U jaS Properties Windows <ULS<ujû<uj <ujQ tjjj4*j 4 j aS jjjuû <u jjj&jjZ -3 

$ jj4iwbj4Sjjj jjç jjj U4j Visual Basic 
. jjdSj j Properties Windows j<U/<UJiUS jLûUjj View <^uwU jiwJUUUIS /j 
. Jj jJ jS jAn>JJ F4 SjJ Aj jLjJJU 4J 4J jULyb (jS^jlSjjJj jlujj 


Properties - Forml 


jForml Form 

Alphabetic CategorsZÊd 

^ppearance 
^UtûRedraw 
3a:kColor 
SûrderStyle 



Caption 

Reburnsfsets the test dispJfl'Şwrri arr 
cfciject's titte öar or bebw an obiect's 



Îjj<LLûjj4S*j jjç uLjjj j^jjjjj (jjjjjjjjj ^jjJUy 4 j jjS blu -4 
. jj j j j S jAt«4J Ctrl+R ^JjSjJ 4 j jb4jsj<u 4 j jubb /j 


$ wûj4SjjJJ 4S4 mLw 4J jJ 4S4jjjj jb4SjjjjJ ^JJjS <^4j ^ ^LS 4i jb4SA«jj£ 4S jJ4SjJ Ij jj^ -5 
Guide Umj jjjj>jjJÛ4A Resolution Uiu jj4Sjj Form Layout ^jjAşb j4w4J ûwlj ^SblS /j 

. jjjJjJJjÛ44 


$ jU4SjjjjJ jj j»jJ>Û44 Û4 jjQ j*jb i£)4wjlS (Jjjiw (ûljUJJ jj£ -6 

Mouse icon (JJjjlûjujQjjûu^jj jLwb jj Mouse Pointer = 99-Custom (JJû4«j4jjLj jU LujjJb /j 
. jjjJjJJJJ44 hw4j4j (Jjj uw jj4SjJ jijbJ Jjljrş&44 IJUJ (J4S4wjb jij4wjrşS 4S iJ4 ijjiîi j4J L fcuJ 






























0 @ti=a<a 

î jruvjjJu Command Button ji£tJji»jS jAwAJ (£ub) jjLûlj iJ&jjS jrûijja jj? -7 

jj^SjjûLlS Command Button (ijljlj j<u«<U Liaj<u /j 
jil Ajjj*j jj juttjjja jSjJj Lûlj A>i* li Tool Tip Text (jJj<UJ<ujUi <U jLSjjjLuuj jUjLj ^<u <U LaLu 
( Tool Tip Text: jLSjjl jS jjJj JjjLûlj jajijijS jj ûjjjLS<u ) ajijmjjj teajlu jJj iiltAjJjjjv 



? Deslc top jAjJU lujJj ^jJj'Xjj? (jbljj Lupaijaa jtejjj jij 4SjuLjj4j ^jjjS^Jj^ ^jLS <U jûl>jjj j j? -8 
.Moveable=False !j jLS<UJj<UJ <LuLi<U jLwb aj jjiSai Form jijni U UUiS /j 

$ jjjS^<u ^ tfljj jUASjUjji ^jijS Center Jjjjb jj jj<Uj ^-9 
.jjjjjjajjiA Start up Position =2-Center jLwbjj jJiSai jjjjjiutil ULiS /j 

? ûij<*Sa:ja: jU<LS<Ujjî Ij Taskbar <U jj? j: jS^i û^ ^jLS^U -10 
. jjjjSjj Show In task=True <ujjû<uj jujûjjû jlS<uoi<uj 4uD H LxLu jjjjjjajjis Form Ljjj<u /j 

î uJjSj: Ijjj- jjit jlujh JS JjUjAj 4J 4S<UjU- IjJj ^ujjIj jU^SAabjiJ jb4J Jjjj ULuLS — 11 
.Clip Controls=False <u jjJSjj <u^jû<uj JjjDjjû jLS<u:û<UJ jujLÛ <U LaLû jjjûjjjJÛAA Form LjjjJU /j 

tûjjS<û UÛj ^jlSûljjS AS Ij Textbox <U jjJÛÛ ûLiujji<U Ij jj^ -12 
<U jJiSai JUijJû<UJ<UjLjjJÛ jLS<UJj<UJ AjjLj JU LxLû jJ4Sjj SLLS jU4S Text box j<U<U LjjjJU /j 

Locked=True 


« jLmU ÛÛjSj ^ ljS<û IjLj igÎJMjjj ûû Combo box jiSij -13 
<U jj<Û:J <U(j jû<Uj ^LuLjj<û jLS<UJj<UJ<luLj <U LULû jJiSai ûLUS jU4S Combo box j<U<U Ljjj4m /j 

Style=l-Simple 
























<9 Uaiifca S 
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^MeêQsb 


rsBo 





jLS<Ljlujû ^jlj jb jljjjjlJÛ4u (jjlj d«j 4 jjjjlj: l:4SJUljj4j <^:jS^4û^ <pLS <U 4S jJjb-jj jAj jlSjjljjS 
: juujjjj: <u<ûw fkjj JlASajS .wujl: jljjl <U jLSJjjLûlj ^IjjjjAj djjj? JU jLûLSj>«j jb jj 

Emp Name $ =Input Box $ (" jLuLjjj ^jb") 

dlttSjj djbl: djjj^jjt 4S<ubj<u ijjduAjbjJU <U ^jLûlj ^ûujSjjj jj ûj:jL£<u Input Box $ ^jbj<û djjj? <u 
:bj ijjj i^jj iijb LÛ4A jjj j l i lu: I: :b A) :jb j<U AS ûliu :bj ûmAjjU ^jb 4S ûb:: jjLu^jLSju jU IjI: ûûj-jJj:: 

^ <£<u iJjj :jljjS <uu:: jLwSJj jS:jljjS (j^jJ I::jjJ . uujS:: 

User Name $ = Emp Name $ 

jjjjIm <u jûjl: List Box ^LS 4 Û<u <U dluAi <u jjljjl j<U jûljû:: U:jjA 4 :j 

Listl . Add Item Emp Name $ 

:d«jj4A ûLSu £jj ijljl: I: j:jS^4U^ ij<Ubj<U AJ ijijAjJi <U jûû$jjLS4j jljjjj <Uv ^ji jûlju:: U:jj44 :j 

Emp Name $=" j:JUI*4: j**- jJUua " 

jj<^ b:jj 4 A :j. ûjjSj:ji-<U ûjj jjJûA^ iJjjjÛjJujU String Variable ^lu ^jljjS ûjjjj:: j« 4 ûljljjS ?>4j 
.(jLSJjjLSju jjbjS jj ÛJjjLSJU) :jbj 4 j 4j4ûjLÛ 4 S ^jjjbj i^jljjS d:j <U<U jLS:jljjS 4J djjj^ 


: jLS:jljjS ijjb ^ibl: jj lûjSjjûjjAj jjjjIj^ i£4ibLwb ,»<û 

. ûuj (40) <Uûjj4ûjûbj 4S:jljjS(Sjb 47mjjo -1 
UJjAj LÛA J JjUj Lûlj ÛÛJ (S44AJ AJ gSj j jJ JMjjjjj !»<S<U 47mjj o -2 

d:j (jjLSjjljub jb:j (.save , print) d:j 4Ubj4u jjj ^LSjjIjSjjUU 4ûjj 4J jûj ûiu jLSjjljjS ûjjb -3 

.(printtext) d:j 4S:jljjS <U dlw<u <u ûiu <U4ûjj j4Û ûûjj: Ij<û juû$jjlS4j <ûLwjj j<û jUbuj jjSjû. (for) 
jjûbj<S<û :j ÛÛJ4U IjûLSjlLu jljûi <U (.) ûûÎLS' jb :j ÛÛJ4U (Space) (jSûiljûi 4S:ljjS ûûjb -4 
jLS4ujj ti:j<û:jSLu- jj jûjl: ( ) Under score jLS4ûjj jljûi 4U 4Sb- lj Ij4û 4 ujj jj: <U jjjjU dû: 4S:jljjS 

******* ** ^ **V v 














- U - 


j'k 



ibi^ &k 

V 

32767134*3268-4) 

ûub 2 

jIj4j (Jjjbj 

Integer 

□4*2147483648 - 4) 

2147483674 

ûjLj 4 

jIj4j (Jjjbj 

Long 

- Û4* 38 E 2402823 -4) 

45-E1401298 

ûub 4 

Floating Point jlS4j ^jj jjjjj jjbj 

Single 


ûub 8 

jlSjj^jjj jjjj jjbj 

Double 



Fixed Point jl54j ^jjjjjjj jjbj 

Currency 

Ou 65500 


ûuJ 4) 

String 



jLj j$ JjJj ^AjLmuj ^4^4) JjUjî j)jj4j j ÛLS 

ÛUJ JjjCÛj 

Variant 




.UUJJJ jUj *ULjj*U ^JJjiSj^ ^Jlju^ jlj$£ ^j^^ ^JjU^SIj aj 





J^^UjIj Jjjjud Ij^ uJjJ^4£4Jlj ^aSjj^ IJISAj44Lj4Jj4A A& 

V ♦♦ ♦ ♦♦ ** ** v * ** * V 

.ûjjtili (V 

ariant) 4j ^4Sjjk 
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: jLSjjljj^ ^jjjLjllj 

-¥-—-v- 

4J«j ^jijiS»j& j jlStfjljjl ^Jjj AuiLuJ juujjj JjS ^jLS«jlJj4A jjj&ûjS Ai tiiûSjJ 

Dim Name As String 

UULajjjjJm (J4JJJ 4 J j»4J djj « 4J4A <JJjjIjj£ 45 ul£«J i*lmj4J J«Jjm4 (J4jUj4j jjlJUsLj 4jLjj44 j»4J: Dllll <^)Lj44 
JJ IJjLu 4J4SdjljjS ijjj? String Lfe«jj4A Jj 4 4J44 ^jljjl 4J jUuUjl) 4ÛJ 4S 4JJjljjS j4J (JjLj Name iJ4wjj 
41mj4j JjjjuI (J4«ljj4j 4S . ûû ^Ly ^Sjjljjl Name (Jjljjl ûûjJjLj: 4S Ijjjii .ûûûjIjj jb4jjjû f»4j 

.Jjljjl j»4j jj jljS &LJ (JJb ^Jjjj^lJ 4J ÛXÛUJJÛ44 





i.,<t. .j. v *..*.i *aa\. x . j* j. \- i.A.ie . 

• 1 ■ MrrW^W ^tWhvJiW «W Rw ly 


i ^£4JJ£ju2 4J ULuJ4J 

^JjjjjI (J4jLj4j Ij4j ÛJjSj 4 mLuj jJûjj (Jjj4j^ 4j ûLjL4j jlijljjS iS <4LuLS 

•ûjjjJlJ jj lijlj^JjLjJ (iJLj ySoJLjjjj 


A) ûUdJ 414A jU ^jU ^Jj4dUj4J 41 

.ûju ûdJûb <j*U4j ^f$4j 4 j ûjjjjj^ ^ ^jj ^Sjjbi^ 4 j û*j4j Ij4j Nama ûlwjjU Name ^Lu^j 

^luuJJJ *U jLluuJi).U lj4J uuJ j^y|j4iUj 4^4144 j 4S uu ft JjJJ&* jLaSu$Lj 4J d4J4l4A j4AjL<LL mJj jd£dJ p^AJ 

ûIjjj JjjS j»4J 

Option Explicit 



<»4j ^jLlUjLS^j 4j . Jjli 41 jb jj4jû 4j 41 Declaration section ûujjjj)j jJûL^Ij j^4j 41 *jj£ ^4 j 
^jUJ jUi46 j»û 41 ûlJjljjiS ûii UU ulU4j4Sjj!j ^J jU4l4& ^U4J Jj UiLLwJjJJjU ^ ûluuJ^U Jdjju£ ^4$Uj*U 4jUj4d 

. lJ IÛJj4w 41 jJj5 4l/LuJ ^J 4j y L& 4£4 *Uj4j 
jjj4A 41 LjIj jjIjjIj Ij Djj4u 41 ( i£4j!j4jû 4j ) ^4jUjjû j4l ( ûUjjjU ) ûujjj IjLS Option Explicit ^jUj4£ 
4j24j Ij Option^iyulj4w 4Ju^ JJ lj4J ÛLSj jlS jU4SjjjjJ jjj4^ 41 ^ÛmS4j jLÛUjj j4S . ÛUUjIS 4£jjjjJ 
Yes jj jjjj^jj Require Variable Declaration Luu jjjjjjtdbu Environment 
^jjjmI ^AjLjJj j£}Jj ûûL Option Explicit ^iLj4& 0 * 4 * 33 'j Aj jULuJjkê 4j jjlJjS jjLj 4A y JL jj 
4jLj4j jJtuJj uLjj uhmJjjj jjLj 4 A (»4j jiL jj uUJJlJ ^£4 j«j4ju 4j JjL jjjAI 4J oJj^ yS4JJj^5 4 j i*lmj4 1 

.ÛLSj 4uLuJ IjLjjj^w 4i jLSjjljjS jjjJA jJj 
: jjjjI^ ^4jUUj 4£ j»4J ^UlpjL£4J4J jiU4Sjlj jlSjjljjS jûl^JJJ Ujjj 4£ dj 

♦♦♦ ♦♦**♦♦ ♦ y v ** 

Dim , Global, Static 

JJ l$jjJJJ%J\j jii^jj Aj JjljjS j4J |J IÛJj4u JU j4^4j Ûjl^4j j^j 4J jLuJj4J 47mjj) O JJ 

. ^lJJJ jL4j4A tfjL4J Ij4j i|yJJJ4j (J4^jj Jjjj- j4J jLwL 






















_44 _ yajfej _ 

(gjJjUAÊIj tjjlSJjU)& 

- x -—- x - 

tDim 

tjljjZ ?>jj ^i:ijijLS ^jlju . lJjLS«jb ijJSjU <U Dynamic Variables ^wLuU ^5jjIjjl ^jS^wûuu ]j ûjjjLSaj 
J&>j\ijS <yjU ^jLjjS Aj ûj: uJlûjS ^JjijLS <^4*43 . 4i4u LIjjIjjS j]j <U 4Ûwjjj4j I^j4j 

{Redim 

jUiujj j4S4jjj jljiJj 4 mLuj Dynamic Array ^jSLwUul: <^juû<uujj? (<ûjj*a«) ^jjjSjuLuj ]j Lu:jLSju 

jjj&j ijb: ) jîjljj 


<U 4j4j ûlSljjlS Ulj jlSjjbjS j]j jJ uUljjli L$j4J Redim ^juib^ij ^jlujjj 

. Dim <^Uj4fl d«j jjjU4Slj ^4 j 

{Static 

Lgjjj :jlj]l |»4 j ^i: ijSjLS ijjljj. UijjljjSjLi <J Static Variables ^LjLU vSjjljjZ ^jjjSJmLuj ]j ûujjLSju 
jb jj Form g b- juUuLj aS juûju <u<£<u j4j <ji4u4j j<ii<U ^jjSjLS <ji4u4j . 4 j<û dûjbjS j]j 4J 4ÛMUju4u 
■ûjûjuj: 4Sjj4jj^]S (j:b <U j44 j4A jjlj]S j4j ûju ^ulûjS 4S:jl:jS ûlûj]^ <u ûju Class jb >j Module 





jjj <,jLS4J 4Û4J 4Sbij,4.u Static ^JûboSlj <yUj4$ ^LuAjLS^u jjjj jjl:bb 

V ♦ ♦ ♦♦ v ** ♦ 

. 4£*uL)j^j ^jLjjS ^:L; ^ ULuy^ u^j4 

ÛjLS<U ûu:<û ninjjo 


{Private 

Form ^4S4u ^b j4w<U . USjjbjSjb 4) General Variables jLS4u<]uiS ^SjjijjS ^iujS^wûuu ]u ûû:jLS<u 

.uuuj: 4S <£<u ^j<u<u J 4 S 4 J ^j 4 «<u L4«jj44 >j Class jb BAS ^4ubj4u ^jub jb jj 


{Public 

jûljjjjjj 4 j 4Sjjjju ^ûwb jAudJ. General Variables jLSJu^ûuS ^5ujlj]S ^Û:jS4wLuj ]j ûu:jLS4j 

4S«jşWb |j:b <U L4Jjj44Jj <j 1 i7iS 4 ) <U4S<Ub<U ^j<U4J J4S4J (jûjJjjjJ j dJijjjJ j<U ^S<U4S<U j4& 4J ^ y JJûu 

. 4S4ubj4J ^ulûjS b44 ij j j M jJti 

{Global 

juljjb jSf4u 4U44 (j Public ^jbj^j jU44 4S ûû:jlS<U LuwJ LÛ4A Jj45ÛJ4J Jjjjul jjlû^jjS 4jjjûl <U j44 

. jLS4S4u <U I4»4J ûÛjuujj: 
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jljjl <ylSjjj? <U dJjj? dJjLÛAjAA jj IjAj ( jLSLuA 4j ) JuLmIj (^StUjjiw 4j jlSdjljjS yÛJÛb^Slj jj 

: djbJ djtjljj- 4J Jtj ÛUjJtJjtJ 


♦♦ 

ibiS 

V 

% 

Integer 

& 

Long 

î 

Single 

# 

Currency 

@ 

Double 

$ 

String 


My Name $ = “Ali shahin” _ 

.»String (^SjjljjS My Name ^jljjSlûlj 

: j4jjS 4 j (jiajb^Slj 

. jl5tjljjS 4J ûûjjt^ 4j jjjSj u4jjLj jLStjljjS 414 U JU44 l 4 S 4 J4jbj4J4l jLwtUj j4S4j 
. jutjjjjj ujS ,» 4 j Ij4j Integer jjj^ 4j ju jbjjj44 j4SjJuj ûwjj A ^lu 4j 4S 4jljljjS j4j jjb 4Jjj 

Clnt A 

: uJj4SjJjJJ jLSJÛoSjU jLSjjj?- JjJjljj- i^4J47m> j4j 


«♦ 

ibiS 

V 

CVar 

Variant 

CSng 

Single 

CStr 

String 

Clnt 

Integer 

CDbl 

Double 

CLong 

Long 

CCur 

Currency 


(Jjjj" 41 (B,C,D,E) LjIj ûLSjjûj ûwjj (B-E) jLS 4 Lu jjj jljji4l 4 S ^4iljljjS j 4 j jjj 44 ûjj 4 ûLu j 4 S 4 j jj 

. jjujjjjj jjjS j»4Û Ij4i Double 


CDbl B-E 





. ÛJjS4i JU 4l(-) iJÛLjljjj 41 jÛJlJjljJ jUuUj j4^4i 4ûujl) 






























_ 04^0 jjejfea UaaêUffi _ 

Al LuiijSlê jLu u»i F-D ^uj Aj i£4ilujj jAj LAjjj4A jjûLjjSuj jLuwjja ^juj AjjjjLujj jAj jLûuuj j4S4i 

. jujjjj: jjji |»4 j IjAj ûjjjji: String jjjj- 

CStr A, D-F 


tLifetime and Scope of Variable jLua«4jj £)4uftjlS^&J>)* 

jl5^ljjl* (Life Time) jLu^u^j (Scope of Variable) jLuAjL 5 aj £>I^j 

: ^Aj jJj5jj jfiAJlJ luLj 

: jLS4j -1 

_ _ _»_ 

JJ jjjçjj: LjAA jj jj j Cuuj j : I: JiijjjjjuMji i£:b4l 4i4jbjjj ^Suujwj4A 4J jûl^jjLS^j jûljjj: 45 jAjljljjl j 4 j 
<^ 4 j 4S4 j j 4A 4 J ÛumIÛJ ^ jlijjljji jjj 4A t$Jj4i jj jÛ4J4&Jlj < ^J) IJ454J 4J ÛÛJJJ 4JJJ < 454Ubj4J 

.4S4*bj4J 

Public ABC AS Integer 


: I:454j <jub j4u4l jl5:jljj5 -2 

jjIjjS J454J jijljlu^ . jjIj: jb4Îjlj UjLaj 45 u15jj15 I:45 4 j 4 5 4 j <^uub 4J 1^:4: jtu^jjt54j jl5:jljj5 juIjjj: 
. juu4::jL54j Private ^jbjjj ji:jljj5 jjj*- i»4j ^iaib^Slj jj. 4 jI: j: j5jL5 <jub 4J L*j4Û IJûL54j <ju5 

Private TafTaf As String 


:jbj5 <jub j4m 4J jL5jjljjl-3 

4J. I::jl:j5 ^4 j i£jjjjj:41 ^uu$jjL54j jj ^SLujju 4J ^uljjbj lu:jL54j t41jjl:j5 <^uub j4w4J 4 j4j 4jIjIjj 5 j»4j 

.jj4 1lu «j: Ju45jj4j£u«jS (j:b 


Private Sub Form Load (Cancel As Integer) 
Dim S1 As Integer 
S 1=5 
End Sub 


jj ^54 j4jjjaJ jbjj 

Private Sub Form Load (Cancel As Integer) 

Static S1 As Integer 
S 1=5 
End Sub 


juu4j:jL54j Public <^bj44 Ij4j uuu^jjL54j I:454jbj4j jjjJb 4J JJjjIjjS uuujj j454j 


juuAjJjL54J Private ^ibjJÛ Ij4i ûuu$JjL 54 j U 54 j 454 j 41 4i4J ûûjljjS ÛÛWJJ j4S4i 
. jui^j:jL54j Statie ^jbjJÎ Ij4i ûuu$jjL 54 j USjjI:j 54J 4i4û ûûjljjS ûûujj j4S4i 


















X jLu<U4J 

-—-¥- 

jj ûLSjj £>bj ojfjjS j4j ^i 4 « 4 j«j ul:«: jLlû jAj ^juVjLw (Scope of Variables) jjljjS jAj (JjIjj 

.( uL£jj jîjLjJ 4 Sjj4jjuujS ^jLj AJ jjAjLa ^jjjb LjIj ) uL£jj jîjbJ jjIjjS j4j 4jJj 

:jj4u4j 4j jJjS«J jLû<U4J (JJjJjS 4J JîailS«jljjS 

.Global Variable jl£4jL£ljjljjl -1 
Module level Variable ( jj4jû 4j j JjI£ ) Jjjjj ^iub j4u41 jlS«jljjS -2 
Procedure level Variable jLSjjbjS yiwb j4u 4J jLSjjljjS -3 


t 

(JjLj 4 i 4 4S4«Ljj4j ^Slujw j44 4 j ûLu^jjLSlj ûujIjjjj 4S j4jljljjS j4j Global Variable jLSLuicuS jjljjS 
-flj 4 uLU«JJ |J4Sjj4Jj;U«jS iJJb 4J jLSjjljjS 4S 4«bj4J <yLu4jLS4j ^jljjjj 4J jj4ulu«jJ 4Sjj4Jjuu«jS 
.jj 4 *i 4 j 41414i ûjjûjIj Code Module ^jU 4«bj4j 41 jLS4j ^IuSjjI IjjS 
yjblJ jj 4i4J ÛJJjLS4J Ujjj44 JJ « JJJJU4J djj 4l4jjj4%j 4j guA 41 4S (J4iiLlj j4l 4ioS 4J jjL»4«bj4J yjjli 

.ûjj ^JLujS (*.bas) (jjSub 4j j jlS4j^LwS JjlJjS jLSjjljjS 
jjjjjjjJÛ44 Add Module Ij project <juul 41 Ij4j ijji ^jL4«bj4j ^bb ^ijjS ûujjj jj 
. ûûjjjjjj û4ulû jjLw4«bj4j ^jj4jû 4j jj Module.bas 4j jU4Sjjjjj jj ûûjjj ûujjj jj jLujj ^Subb 4S 






















ujj j"i > ) Global i£A2jj imLijfp 4 j< ^u4j4&jIj IhjjJ Aj tajj^jbjj 4S ^JjIjIji^S jJj ^uI^jjj 

Global name as string 

yjljjjj 4 j jJdSjj jjAm * jjû^jjLSJj 4£<ubj4j ^mj jûjAA <U Name ^jljjl ûbljjjj 4iJiib4£lj ^Ijj 

.ÛjjjjbdJ 4S4£ji 4S<Ubj4J 

tVariable Module level jjJbbAj jb Jjb^bjAjjAJ jLSjjljiS-2 

AS ^ldJdjd^u 4 j jU Al jU dj JjLd jU ^ djljiS jUjj^nUy 4S jdJljlj^S ûjAm 4j j Jjli ^pUuU j jLSdjlj^S 
^djdjdJ 4i uJjJliJU |»5f4J4 jlu^Jj154j 4S4jU jU 4Sjj4ju 4J jAA 4j juljJ^ 4 JjljJjU^Slj IJjLU 

^jljjjj 4J Ij4Sjj4jj^|S ^JU <U JidJljljj^ Jjj^ <>4J Jj 4 ÛJjJu$JjL5dJ dJJj4au 4 j jJLJ jU 4bU j4J 

[J4^4i jyjjljlu^. uxlmLj Ij jU 4J jU4JjLulj 4 SAjUjAj j&lb ^jLjjS 4j jj 4 4S4jUj4j j4u 4i jJjiuJjU 

. jSULf jU4SjjjjJ (jS jJ ûşmi 4i jli4J ^pLuSjjljjS 4S 4 jLi4J^IuS jj ljjl 
jJ ^JljAJ ûlj jp'AJjAw iil4JJj4JU 4J j 4A jUûuJj j^J4A jUS4JJj4JU 4J JUAr; jjjU j4^4J ÛJJjLS4J jyJjljjiS Jjj^ ^4J 

. jUJJjLS *W 4j|jljji uLSj^ 
x 4JJ$lfi 4J ûdUJJ (^jp* 4J Û4 jjIÛ ^UjjljjS J)4JJj4ftJ 4J j4A 4 jIj 

Dim Name As String 


tdj4s6j4j <^u«Lj j4w4J ^jUb 

. jj^UjSjj jUjJjiS ^jj4ju 4j j jj4SjJ j&jjfl j4w4J i4LdS Jjjj — 1 
.General jj jjjjS^Form 4 J -2 
.4ihjS {>dJ (£$A AJ djAM 4J ,jii«b j4w4l jrUi/jjjii jbdjljjS jLwb ij -3 

Dim Name As String 


:Procedure level Variable jt&>b>S ^Luûj^^J jtSajljjZ 

v 

lujjj vlUb' ûjUjIj fjSjjliji jii 4) 4>4J 4Jj$5 4jljljjS djj^’ j»4J ^jljJ jlSdjbjS ^Ûwbj4w4i jb4J jj jp-ajb JjljjS 
.ÛUji4J4SjJlj 4JJjiu j»4J J4S JibiS J Jj4Ûu«JJ ta4S*j4J£U«j£ ^Jb 4J j4A jlSJJjLûlj j^JjlJjS j»4J <yjb ^jbjS^J 


Static My Number As Integer 


.jjjjU 4ij>«j bjjll My number 4S 











*u yaj£d 
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( jJjJdiiu 4J AjLtbiSjLA j»4j 4S JjLÛAjLS4J jLjjJjjb jjjjj (Ş4ifij5jb UjL4jljjj ^jUj 4J jLjjjJA 

** * ** ** * **v **v v 4 * 

.jj>jb 

. IJ jLuL S jjLj 4J jjljL» (>Î(4J 4 j 4A jLjL jL4A 4SjljjS 414 JJjj&j j 4J <j jj~ 4fljAA< — 4 jIj 4S 
ûjjjj 4 wLuj JJjjljjl j44 ^jj4j ^j 4j ûjjjj jp- 4J jljjl jjjûjjj ûujljjjj Array JjJjjjj^ b <4 Lj4j ^jjjul 4) 
iijjb4J 4S 4 j i:jj4) Array ^jjjw. ÛÛjuiLj: jLSjjljjSjjj44 ( Ljjju ^Sjjj: jû4£ 4j >jUS4j4j « 414J4: 

. jj4jLj: ûJjjjej jL424«Lj4J 

: Array ( ) jû4j ûj^ ^ûjbASij ^LSjj 

l»4J 4 Jjj ûjjufjjjj bjj: d4jjjj 4) jjljjl ûLJ4«jS ûLIjjj: ûlljip 4 j 4jLwL ^SjjL (4jjjuj) JjJuûjjj' ^JjL4^lj 

4jjjuw ^4j 4S4flj4iu4 4» u 4 j 44 jLSbjJ ^Lubj4 t£jL( 25 ) juJj <41 jj 4j 44 jLjljjS (25 ) 4£ I:4 j4jjjjJ 

. juj4lj:lj 

_ ~ ** _v_ 

Dim Student Name (25) As String 

4 S jljjS ( 25 ) ^jjJjL^Slj 4 j u uu jjJJ 4 A i*lmj 4 ) Jjjjj£ ^ 4 jLj 4 j jIjjS ( 25 ) 4 ) jjjjLA 4 L u 4 S 44 jaiu< 4 S Jljjufi 4 j 
i£jj 4 j j 4 j 4 J jw 4 « 4 j Student Name (24) ^jljjl 4 j ûj: ^jLûjS Student Name (0) 41 ûLSjjûj ûuu: 

. ûLSjJûj ûwj: jjjjÛw 41 Jj4jjjj 
4JJjlfi fk4j jjjjSj 44 j a iuj ^LSjjljjS ^pjj jjljjj: bjjuuJ jL4A 41 Ljjj44 jj 

Student Name (15)=" ^411 juj-jJUuÊ juull" 

(Pj 4 jj 4 j 41 ÛJjSj:jJJ ( 16 ) JjLj JjJjjjj 41 "^411 juJ-jllJL 4 JLull" <pjj 4 Subljj Jj 4 j 4 Ûj Lûûj ÛÛJJJ 

. ÛLSjJÛj Ûwj: jjj (jûw) 41 Jj4jjjj 
juujjjj: j:jS fk4j Ij4j ûLujj ûwj: jjj (8) 41 JjiUjjj jl «i7mjj j4Sû jj 

Option Base 8 


j ûi^ £ ( 4^j)Aia 4 ) JÛAl UJjJf 
ijjj: Jb4£ ^4dj4td< juljjj: l:jjul 4u» ^jjj: 4J4j 41 jj^jL 4 L j 4S (£4jLjuiu«j4j :jS jLwL I:jtfiuj 41 ^jj4j 
(.... jLj jLûLSj'jû jL jj jLSjL ^jL j jLS4u:bjJ ^jL ) 41 jj. I: jjLw4«Lj4j 41 4 j 44 ^ûjSjjj 4S jj4ûl: 414 j 

. jj4S4j4j 
ûûjj: 4 jjjÛu j» 4 j ^4Sj:jS 4S 

Dim Student Name (10,10) 












tj Variables jLSajljjS jjj? jjJ ( 4Lu4j Jtjjjjî jÛÛ4jjLj ju ) b jjLt» jûjSjjj <jSliUjj4& Ai jLSJjjLûlj jLSLÛb 

.Constant jLSdj&ş- UjjjAA 



<êp^j«bsi 

{jiLuAjLSJj ^LSJUjJj LuIj jS4J 41 jj jJjSjLS (JjljJ jlû 41 jLSjjljjS j jLSjjûu?- 





jLş- JÛ4£ 4jljûwU- /kAj 4 j4jIj 4J « 4S JUlûjAJ ^iljS <??4J^ ^jLS jjjjllj 4S i£4ilijû jAJ Qlj jlSdjjSi? 
4S< jujUjJJjLSJj jLSdjb- jjaAA jû4J4S4JUlj tjJbjU L^JAJ AaU AS (jU d&tjjjJ ) lj 4S4jljjAJ 4J )j Aju jtj LjjjJ 
JAS^jJ )j&tg j4j Ij d k jLS)4J 4i lujAjUj j4S LAjjj4& jj jj 4 lU mIjju ^4SjjLj44 uLSjj 4S4jU)4j 4J Ij j24*4J 
.ÛJjJjjSjJ |j4S4«Ljj4J ÛmS 41 yjjp- ^S4 Jtjlu 4J jJjj^WJ ^iJÛU^Slj ^yjjû 41 L^j4u Ij4j jJjjSu 

ûijjJ 4 jjj1w ^4J4«Ljj4J4l j*Si? ^JÛU^Slj jj 

Const My Number =64 

.My Number jjû jU^Sajûoş- ^jlû 4jjjû jj Ijj jil 4«ij 4S 
|J Text box 41 4jjj*i jj ûljjj 4 jjj1m ,»4j jui^J £>LS4J lJ4S4aLjj4J 41 ûûj4jUJ j4l 

Textl .Text = My Number 

ûIj jubj Uu (40 ) 41 ûijLi 4S jLSdjljjS ^jLSJUj4« jU44 jLSjj^Su^ ^Luljlû ,jiLS4?j4«4S jûljj J«6 j4j4ÛuUj1j 
... ûijjLS4J IJÛJ ^LS4iUj4i |J4wjj ûljlû L4djj44 tj ûû (i^J4ftJ 4J) < 9 iLxi& ÛU i»4S4J jj 
Module JÛ illjdsl? diûlS ûij 4 wJJ Ij j4u»4J yjLSjjljjS ^ILSLwU jj« 44 )J jLûJÛU4Slj <jjj j ffl JÛ jUjjjSûf jljljj 

jjjjIj^ (J4jjjû j4j 4 Ijj ûijjLS4j I: ^wij 41 Global ^4wjj ûijjj jûjjbb 4û 

Global Const My Number = 64 



























Al jjJJjLîjj £t$A Jj4j4J uUjJJJl J jjj f j SJûiAJ 4J 14 i»LmJ4J t£4jbj4J 4J jlSjjlJjS ^w4J 

4j j5ou4J jlSjjlJj^ JJjji? *f 4S4j|jj4j (JJjbJLS £tj4jj$J ûijjM jj JjjJjJS jLSjjlJjS £tjijj$J JjbjjJ 
lijb 4jUbj4j J4J jûljjjj 4S<Ubj4j ^SuijjL j4A4i blljlS j44. jJJjlS4J Ij ^jljjS J bjj4w4i 4S i4l4J4«b4Jj44 
L4jjj44 jj jj45j jJ ^jLSjjlJjS (Jjb bwJJ (Jjj4j (^j 4j jj45j jL54u5jj4w JjlJji (JjLS ûwJJ L4jjj44 jj . jJ45j Ûmo4 

. jjjjSjJ (gJjf' jJjjjyi 4J jJjjj44 jJ ^jLSJjJjm 4i 
LUj4jUj j454j |»V4J juyjjJJJ C jCnCl cll ijû4j4J lj4J ^ n^OjLS4J l4jb4S4JjjAJ jîjljJ 4J 45jjlJj5 jUuJJj45 
jJ45j ÛÛ^Sjy jûljjjj û L uJ j jj j44 4i juujjjjj Module ^4J4i Ij 4J jûifUjLSJj lJjU45jjjjJ jjj 44 4i 45jjlJj5 
ûûujjjjb Command button j4j ^jjjûu ^4SjjIjj Ij4j blj jUSj Command Button ^4j jjj4i j454j. 

. luJ jU45jjlJj5 (Jjb 4jjjjj JJ j4^4j ÛÛJJJ 4 jjj1u j4j juÛLSjjIJjS ^Uujjjj 

Sub myname () 

juujjjjj jLSjjUjS ^LSjJjS jjj44 Ijjjûi 

End Sub 

. jjjSu ûuuk^jb Ij Command button 4i jûb b 4jj>b jj jj45u lluI^SjLj jjIjj 5 j4j jUUjj j 45 jLub j»Sf4j 

Private Sub Command l Click () 

myname jumjjjjj 45 jjIjj 5 ^jb Lpjj 45 jjIjj 5 ^jjjS luuiSuLj jj 

End Sub 
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jjb jj <jS4jjj1u 4j jb jj .jljSjjUi ^Sjj LS ^il: ^Ui Jj jj I: dLuJJj JfjjjJ ^JjLijJj JJ (jjljSAuLuJ ) 05^(5 rfjl5 
■jÛMJ 45 J i£:jju jjljj:: <(S :jljjl: dluJ4j jjjjul <£4«bj4j jb 4J :jlju»jjj j 4 £jjjj ^4j4jbj4j 
: jjjj:: ^4:1:1: ujjJ ûj4j- j4uu4j jlj4mj5jLA I: 4iwJ4j JejjAÎ iJJjUjAj 4J 

Mathmatics Functions jLS4bjLS£j 4wlSjL4 -1 
String Functions jLSJbjLûlj j^ai j 4uuSjL& -2 
Data and Time Functions jljj4:j ûLS (PlS^uuSjU -3 
Data type Inspection Functions jLS4j>Lblj ^LSjjj? 4J j:jS i^4j^ ^ilS^ûuSjU -4 

Finacial Functions jLS4j yjljl: 4uuSjL -5 
Program Output and User Input Functions jjjpj: j jJjSuj ^LS4ÛuSjU -6 

■jj (jjiSejj&’ 4j jj^^bjuuSjU -7 
LbjJJJl: jj)4«bj4J j4jV 4J 4S i£4jLuuSjU j4J ~S 


jlSjj^LSjb jjCjS 

j»4S> jS) ^jLS4jjLSju jjijjb ^jLiu4jL4J4j jl <i Jmjj) o I: j:Lu ^jLuu^ ^Sj Database j44 ^i:jS ûujj: 4) 

«£:jS 1:4lub4j >jju2 i^4«bj4j 4) (jî4iljljub ^jj.ûûjj: (.jlju< ^jj< Lûu< Lw< LÛ4 <b < jljLf < ^û4bl:< 

. jJ4Sj: jbub jluSbJÛ44 Iwjjjljj- 4J 4S 4J44 jLû4ulû 
jljjb Iju 4J jLwubjÛJ l:4jjjuJ4J 4S 4J46 JjJLbj <^4J4jjjuJ 4J jUulwJjju 4jjjljub j4j i£)l:jS ^JjS jmIj jj 

Label ^Sujljub U:jj44 jTextbox ^jljub jj: juûlj4j ûûjj: 
jûj:l: £ji Textbox2 Uujjj: ^jljub 41 jj jSjjjISju 4uÛSjU jj juj:l: £ji Textboxl I: |»4S4 j ^jljub 414S 
4S4ÛuSjU ^jbû 4 j I: Label 1 41 ( 4 jUûj jbjljjSjj: ) 4 j 44 £ji jj: <ybl: 4 j jLaubjÛJ 4S ^4iLuuSjU j4i jj 

. ûuçjjjj: 

: jçujjjj: 4 Sj:jS Uûû label 1 j4u4l jj4Sj: 4U1S Jjj: Ij4j jLS::jS <yuujjj jj U 

jui»jjjj: j:jS j»4i Jjbjjj: ^jj4i:jSjS jj -1 

Label l.Caption = Val (Textl.Text) + (Text2.Text) 

(-) jj jjjjSj: (+) i£4iLwui 4i4u jjbj jj: ^jSjj: 4U1 jj -2 
(*) jj jjjjS j: (+) i£4iLuui L^i4u jjbj jj: ^i:jS jljU j: -3 
(/) jj jjjjSj: (+) ijJûLuui LgiJû jjUj jj: ^i:jS Ju4jI: jj -4 
ijUKjjjj: j:jS |»4j Ij4j û!4j4ujS (U) ( U ) i£j4j ^ublj jj — 5 

Label l.Caption = Sin (Textl.Text) 
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.qUijjjjJ JjjS j»4j IjAJ 4)4 j4u jS -tÖA— ijjijtj iJjdJ (jjjljjJ LbtJjdJ tj -6 
Label l.Caption = Sin (Textl.Text) 

. j\ujjjtt tiji jtj Ij4j d4J4wjS -U— (J4jLw ^jj (jûûlj jj Ujjj44 tj -1 

Label l.Caption = Tan (Textl.Text) 

. jyujjjti tiji f»4J Ij4j dJJdjUj ^bjjJ (£tj ^xûlj jj UjjjJU tj -8 

Label l.Caption = Sqr (Textl.Text) 

.jfrujjiti ujz f>tj ijjj djjjjUj (^iijj çjjjij jj -9 

Label l.Caption = Val (Textl.Text) A Val(Text2.Text) 

.juujjjti tij& j»4J IjAJ dJJJjUj (jtjj)\£ji (Çtjtjjjji jj -10 

Label l.Caption = Log (Textl.Text) 

.juajjjti JJtjju f>JJ <£4SjjjS IjtJ jljtj ^jUj 4 j jJJiJ jLS<U (gjtiijjti ^JjjjUj StjJjji - 11 

Label l.Caption = Fix (Textl.Text) 

jjtjjin jJtjlu f>Jj c$4SjjjS Ijtj Integer jljtj ^jjUj jjjiSjjM jj jLSjj ^jjj 4jj4S ^jjjûjjS JJjjj jj -12 

Label l.Caption = Int (Textl.Text) 

jiujjjti jjjs jtj Ijtj û \jjj (jj-jj LjtJ jj -13 

My Number = Abs (- 45.6 ) 

Text 1 .text =My Number 

.ûûii«lj udLw lûljMy Number = 45.6 y ûû^jjjjj JJtjju jJj aS<uUû4j ijjjÛJ 
4S ^jIjjj jLSJUjjJU iiJjUj stjtj jj ujjjLS4j 4j4ÛjSjU jtj Random ^SjujjJU Dlj :Rnd (j4wiSjU - 14 

ûIjjj tJijlu f>Jj (yûtStiji. 4J,jj jJUj jtjjjtj jjjU( 15 ) 4J jLSjjUj 

My Number = Rnd (jjUj) 

.^^IJJ jU 4S4 Sj S ( j jj 4j LjIj ^IJj jUJ LS 4 wj S (Jj4S jIjAj 4S (£jj4j jj ujJjIS4j: Atn (£42uSjU — 15 

My Number = Atn (jjUj) 




U ^LLLLLuJAS Jj LbJdJ l^ Al ^lj^ 

Textbox tj tiLu jb jjiU stjju 4j U-« ûûu^jjLSjj ( jjLwiSjU ) 4iljljjb 

jtj ji ÛJtdi jLSiduJjxi Jjljjli j4j j4U4J jbjJ ÛujljJJJ Lbûj jj jjj4J (jjij4Ubj4J (J4j 

♦ ♦♦ ♦ ♦♦ ♦ ♦♦ ♦♦ - y ♦ ♦♦y ♦ 

.ÛfijS jjrtS ^ J jJj4Sj4Lt» (£ljU 4J ûiftj jSj ÛJ4Sj: (^UjjJ SdJtjjjJ 

fnû UyJfllj AJ 

. jû <,Sjjljjb jb jj 
j4J j4S4j 4jLwûSjU 



















: Array (j4wuSjL // 1 

|JUL_Û jljwnjjj 4S ( &$ A 4A) JÛ4J UJJ^ (Jjjlw JJ jlS4jjLûlj ^yJj^ jj uJJjLSJj 4J 4wo£jLA j»4J 

jjLjj b4J4jjj«j j»4J d«jj44 ÛÛjIjjjjj ( jûw ) jjLj 4S ûjjjjjlj (lower bound) 

"First",''Second",''Third","Forth" 

My Number = Array ("First","Second","Third","Forth") 

Print My Number (0) 

Print My Number (1) 

Print My Number (2) 

Print My Number (3) 

ul?i JjjJ 4JJjiw >4 j IJyLsj 4J 4J 

First 

Second 

Third 

Forth 




Visual 4jjj Jjljj4J4^4jlj jbjjljjl (Jjj^ Ij4j4jLj4j j»4J lj4S jûljj Jj4j ûuJJJ iJJjûl 

. jjUjIj Variant &)}? 4J yjjj 

* Aj basic 


îIsNumeric (JAwoSjU 

ûjfJJjJJ True jjJJjLj j 4 l 4 J L jb 4 JJjLj Llû ljJÛL 4 llj 4 S (JJJJjljlj J 4 j jûljj j 4 J jj ÛÛJjL£ 4 j 4 j 4 LwÛSjU j» 4 J 

JjbJ lJ4J4jjj«j f»4J 4 Jjjj 4A lJ4S4UUj 4J 4J û^JJjJJ False b j4^4jj 

Dim ric as string 
Ric = "1342" 

Hawlerawa = IsNumeric (ric) 

4jjjLj(j4S4^jjric 4 Sjj^ ûjjjjTrue j»bti4j|jjjjl 

UÛL4J4jjj«j f»4J j»if4J 

Dim ric as string 
Ric = "LM 7.1342" 

Hawlerawa = IsNumeric (ric) 

.4J|J (jwuLj jSÛ4j Jj^jjjbj Lj)4j (J 4S4^jj l ic <ÛJj£ ûbjJ False j»by 4j lJ4J4jjjuj j»4i 
















tUCase 

ddj(Capital Letter) jj (Small Letter) <jjb 4 J jLS 4 ûwj jj ûujjISaj 4j4wiSjU 

djb: 


UCase ("erbil 2005") _ 

"ERBIL 2005" ûLjj 4j«jiw j»4j j»bû 4j 

:LCase <j4£tSjtA 

ajUi b4j4jj>«j j»4J ddj (Small Letter) jj jLS4jjj ^bjjS jj ûjjjL24j 4j4wiSjU |»4 j 

My Text = "It Works" 

My Text = LCase (My Text) 

"it works" ûLjj 4jjjiw j» 4 j j»Lû 4j 
:Len <j4woSjU 

JjbJ Ij4j4jjjb j»4j <41 Jj dJjlj^ijjj jb d4j4wjj ^LS4uJ <jJjbj ^jiûlj jj ÛJJjlSJj 4j4wiSjU j»4j 

My length = Lin ("WayWay") 

LUJ ( 6 ) ûhgJJjJJ j»bb 4 j 

:Chr<j4&SjU 

^jj4 4J 4J42uSjl4 j»4J. LUJljJJ <j4J44 4J i*lmj41 jjjjşb <£4tbj4J 4S û b uwjjJ ^uuijjj jJ lUJjL£4j 4J4fluSjt4 j»4J 
4J 4 j ( 250) Lj44 ( 0 ) 4J 4S JjljJlJ 4l4JJjUj lJj4JjM4jS 4J i414jUw4 j44 jJ |J4<4 1hh m j»4J 4S ASCI.I ^j4lllh 
j»4J iJU b eJ 4J 4J LUj4jUjJ 4lU 4S JjbJ lJ4J4Jjj«J j»4J 4Jjj LUjSjJj4wJjb^ 4S4ibjSjjnS 4jLwjjJJj j»4J ^blJ <jj4 

. Û ift JjJj 4ULjjj 

Hk 

I'm "Engineer" 

.ûi^JJjJJ jj jUU4J44 ^uSjJ lj4J jjLjjij j24JJjÛ2 j»4J jjûL4 j4S4J 

My Text = "Hi,"&vbCrLf &'Tm "Engineer"" 

4£ j^LujjJJJ 4jjjjw j»4J 4JjJ 4J44 (34-) JjUj 4jlj4£ |J ASCII ^44 lluv 4J 4JjJ 4j4i7i^S 4jlj4S <j4JbbJ IJJjuJ 

ûLb ûujjJ 4l4j4wiS IJjUj 

My Text = "Hi,"& vbCrLf & 'T'm"&Chr(34)&"Engineer"&chr(34) 

ÛJj4SjJjJJ 4jjjiu j4J IJ j»Usi 4J 4J 

Hi, 

I'm "Engineer" 

: Str <j4ttUSjL4 

4Jjjû jJ jljLjjj Jjcûj jj jjUj <yJjjS jj ÛJJjLS4j 

_* __ ! _ !% _ * ** _*_ 

Mynumber = Str(123) & Str(456) 


123456 ÛJj4SjJ)JJ 4jjjiw j»4J IJubû 4j 4J 
















:Round tj4wuSjU 

4S1?4J d^j jj4ij ^jb: :jjjb jib ^LS^ib- jjjlp:: IJjLu 45 4j uJ4Sujj ^4 j4mw5jU 

.ûlilu :jjjlû ^lj: 4jU ( 3 ) Lj4& 45 8.74282 


Mynumber = Round (8.74282,3) 

8.742 ûw£«:jj: 4j jjww /»4j I: ,»bû4j 4J 45 


tFix t£4wuSjU 

UL54JJjUj4J jIj4j (jîbA J L^)4J ^UjSjJJ jj ÛJJjUJJ 

Mynumber = Fix(4.57428) 

.Cj$45::j:: (4 ):jUj L^i4i IjuLm 4j 4J 


:InStr^4ûj5jU 

4J (b) ^UJ ^jijw ÛJj4jLu j454j d:j jljwjjj dd4«j5 jjj 4j dJjljMjjj ^jjj m ^Ujlj jj ÛJJjL54J 4j4uul5jU 4J 

.Erbil iSjljujji jji 


I=InStr (Erbil, "b") 


E r b i 1 
1 2 3 4 5 


( 3 ) JjUj 4J 4jLw54j (b) ^UJ <yjjtf Ijjbû 4J 41 


: InStrRev ^4 ûuSjU 

uLSjJlu luj: 45:jIjujjj ^jLjjS 41 454ujû ^:jUj 41 j*2f4: uL5j: Instr (J4ûu5jU ^jUj44 jU4& 4 j4ûu5jU j4j 

InStr ^4^41 yujjljLu-j jjb: I:4j4jjjû j4l djj 

Print InStr Rev (" AbdulRahman "," d ") 

jLuj j4jjj (d) jjjiojj jLSJuuj 45jjU ijjjlj: 41 j4S ^5ij^ ûujj: (9) jjUj /lUû 4i l:jjjl 

AbdulRahman 

* ^4J 

Print InStr (" AbdulRahman "," d ") 

4uj fkjj^w (d) jjjşwjj jL S 4dUj 45 jjU iJUjj4w 41 j4S ^Sjj^ lujj: (3 ) jjUj jbu 4 j I:jjj1 

AbdulRahman 


: V a 1 i£4£uSjU 

JjUj jj djjljujjj JjLJej j ^LJjjS jj ÛUJjLSjJ 45 .Str (J4uul5jU (J4jlj4 a ju 4 j4wul5jU fk4j 

MyNumber = Val (Textl.Text) 


. jjUj jj ûjjjSj: jjljujjj I: Text 1 4145 (jjjljujjj j4i I:jjÛ1 




















AS "C" ^uj AJ ûLSjJIu ûwJJ dSAauSjlA (JlÛJjJajJ ^Sbjj^ jj jjdSbjjjj' JJ jLSJjjLûlj jjj^ <yjjj§ jj ûbJjLJb 

."Convert" tjAwjj 


:CCur (JJLwÛSjLa 

.Currency jbjljj jj 4jIj 4S jb ^ilSjjUj ^bjjl jj ûjJjbJb JjAuoSjU |»aj 

Mynumber = CCur (32465) 


:CInt ^AiiLiSjU 

jjLjj bJjJÛjjoj j»4J djj jIj4j ijjjbj jj jlSjj^jj jjjj i$a jjûjjS djjj jj ûj:jb<U JjJLttûSjU |»Aj 

_ **_ _ ^ _ * _ ** ** __ **_ _ * ** _ * ** ** _ 

MyNumber = Clnt (5.9678) _ 

.ûj^JJjdJ (5 ) JjUj jfcbû 4 j IjjjJJ 

* CDbl ^4ûSjU 

4Jjjjj jj jLSAJjLûlj (<?jJj£ jjJJ) <jjJjSjJjjjAjjjJ jj ÛÛJjLSJj JjJLttûSjU j»4J 

MyNumber = CDbl (785) 

•ÛuçjJjjj (1570) :^Lai4J 
:CLng ^jLmÛSjU 

JjjjIm ,»4j Long jijj^ jj jbdjljjl jijj^ ^jjjjl jj ûûjjLSju JjJLwûSjU jJb 

MyNumber = CLng (25427.45) 

MyNumber = CLng (25427.55) _ 

ÛÛJJJ jJJjlw filM 4J4J 

254227 

25428 


: CSng (JAttUSjlA 

.Jjjjb jj Single jj jLSjjljjl <yjjjS jj ûjjjLS4j 

_*_*_v_ * **v _ * ** _*__ 

My Number = CSng (75.3421115) _ 

342111 ^LsiAi 

: CStr (JAaaSjlA 

.Jjjjb jj Variant ja jbjjljjl £)j? ^jjjjl jj ûujjLSjj 4jjLwÛSjU ^aj 

MyVal = CVar (1254) 
















:CByte 

jj Byte ijjj? jj jiiijljjS i£jj? ^JjjjSjjûjijLSdj 

_ * _ _ * _v_ * ~v _ * ** _ *_ 


My Byte = CByte ("22") 


:CDate jjjjv&jU 


Jjjj*jjjjljjdjj ûLS t£jjp jj jLSdJjLûlj tjjJjjZ jj ujijlSdJ AJiJiuSjlb ftJj 


SS=Now 
Print Int (SS) 

Print CDate (SS-Int(SS)) 


:CDec ^AmuSjU 

Variant 4j b ûejAu 41 ûlia 4S Decimal ( £jj* jj jLS<UjLûlj ^jjjjS jj ûjjjLSjj 4jJlZxSjU ?jj 

■ûjjja ^djjjli 28 ûjjIjjjj JS ûjjjJjjSjIj 

Dim D As Variant 
D=lE+28 
Dim I As Variant 
I=CDec (D) 

MsgBox 



:Dir ^JlûS^U 


I:^j4»Lj 41 jL Sijjjjj* j Jjli ^jl: jLiû jj ûjjjLSjj 4j4JûSjU ?4j 


My Dir = Dir ("C:\") vb Directory 
Do Until My Dir = "" 

Listl.add item My Dir 
My Dir = Dir 
Loop 


: Ijjû ^SJjjjjjjj 41 ij 


ijijlş&' ^Jjijxu f>4j b jb C:\ ^ajIjJ 41 jj^jLSj: Erbil ^Lb ^j^jj j4m41 oLjjj: I::jjJ 

If Dir ("C:\Erbil.Txt") <> "" Then 
MsgBox " " 4j4* 4S4hU 

Else 

MsgBoX " " 4j^i 4S4JJÛ 
End If 
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îKill L& 

.jjIjS (Jjb: jLJ£»j»jjj JS (jJj^Uli j<U 6»jJjjju jj ûj:jL£4j4jAuulSjU ?Jj 

** ** **v ** ********** 


Kill "C:\Erbil.txt" 



:File Copy tftL&tSjU 
. jl5<Ujlj ^iijS (jjjS ji LUijtSAJ JjJl&xSjU f>4J 

File Copy "C:\Erbil.txt","D:\Baghdad.txt" 

.Baghdad sjb <u I!j£ ^j jS "D" ^Llj: jJluAJ Erbil umJja* b jj 

: Rnd (JAÛmSjLa 

ijrûi^ LuieiJj ij<u<lÎoSjL4 t>J2 ^SamjAa jj ûjj jb jjUj jjuljjjj IwjiJ ^4 mj4a Randomize Dlj 
Randomize 

MsgBox Int ((10*Rnd)+l) 

iSjij (jSdJijdA jj yJ jSJjJjjjaj jj 

_v_*_^_ 

Lablel.BackColor = QB Color (Int (16*Rbd)+0) 











j’U 4J jUuJj4J Jj t uuJ if t£4J0j£$[& jîj|jj4J lumjJ LuJljjU 4bjLi4<bj4J 4 j^ LL çj ^UjS 

jLS^jU jji&Jjl 4J dûS4J 4J IJÛIj>« 44 4j 4S 4J4A I: jjLu4ULjj4J ^jlSJjUj ûu£ 4J 4J4uuSjLft j4J 4S LU?4j 

• LUjJjJJjJJ 

Jj ^)4J 4J (£4S4 jSTJ j « LUJJJljLu jîj4S4J JjlJjS j4J LUjJJJ jkLjfcJ 4J tSlJjlJjS 4S JjUJ Jj4J4SjjU 41 ^^j4j ij44USjU 

: lujjj 4J Jjlu !»4 j |j (jjjjlj^ 4J 4S JjJLujJJJ /kSfJj jû^4j jb 



t IF ^jLSLÛJj 

IF( uc u yjjij^ jI ) Then ( A&tejAA ) ( uLSjjj^ d&d&jto dj os^& ) 

: 4jj^U iiljj 

E=10 

IfE > 5 Then Textl .Tex = (ujjjjj4£j4tf4j iiJ4jU 4S4 ^j4j) 


fkjjjj ijL^Jj-2 

_!%_ 

IF ( £j4j ) Then ( uLSjJjLS ^J4uLA 4S4j^j4j 4S (£JJjSj4J ) Else ( uLSjJjLS (jj 4J4J4 J 4S4^j4j 4S (jJJjS j4J) 

4jjjû jJ 

D=7 

IF D < 6 Then Textl.Text = 10 Else Textl.Text = 50 



























fk4jjw (JlJjj -3 


IF (sjA«) Then 

(£j4jL& dSdifjAA d£ d£ [£ «JjSj4j 

Else 

uLS«Jjl£ t£J4J4j4j A&4srjto iS iS £ ttjSjiJ 

End IF 



jj)jLJi jAS4J < 4J (£42jj jL4m4SA«LJj 4J t£jLj IF (j^j4j (£4wuSjl4 i£jIAj£ ^yS4J j4w4J 4£4J4JjjjJ 4 j4jLjj4j j»4J 

^j (^SjjlJj^ Ij4j ujj 4J44 j24£4ûjj j4S4jjj uLSjj ^^4j ^^4jjLj ^SjjIJj£ Ij4j uuj uwlj 4S4 j ^Lt^J 45 jj 

. ûLSjj ^4j^ 
: 4«Ljj4J yjLSjjLSjJA 

i«4j JjaSjj jMj Command button ^jljjlj U«jj4A jj Textbox jLwb jj jj4jj4Sjj jjji <^4j«jjjj Ljjj4w - 1 

♦ ♦♦♦♦ * ** ~ v V 

. JjJjljj’ (J4jjjlw 


■< fcmnl 








/0v 




jLwU jj4S«J ûwlj (jV ( j i u i S jLStjjjJ (JJj4«si 4J 4i j»jj& <jjjj£ Jbj JJ 4J44 j«jjj ^w 4J jl «7mjjjjj )J4J4jjjuJ j«4J -2 

. jjjjjj«jj 44 Form«<Add 


. jyjjlj Command 1 jjljjb jj û4ulû ^jjS Luûj -3 

IfText 1. Text = "123” Then 

Form2.show 

Else 

Form3.show 
Beep 
End If 


(j«jj4 j4w4wj ff JJ jU4S4«bj4J lj4J jçwjÛJ ( 123 ) JjUj |J Text 1 (jjj j w 4J jjjUj4^4J Ij jAjS^JUç? ^jjLS 4J -3 

.Form3 /bJÎ^w <y»jji j4w 4 u.>jj Ij4j jujjjjj < 123) 4S«jbj jjûbj4^4i ^^4 j ^jjjj 














y a&y S 

tSJjUjS ûUS i<uLSj4j IjAj 123 &!£ ^jjAJ ji !>S<ûa* ^LSjJ Ljlj Beep ^jj c^jj^ -4 

j4JjM«j2 4J 4 jJlJaA ijljU ÛJ i iSijiSjjM 4) (JUJ ) ^jŞjti jiAZti jijS^tj^ 


SELEGI 




JjJÛJASjJ yjjjj JjJjljj- (j4J4jljj4J j4J ijLSjj 4J 4S jLS4£ji ijjljJ ^JjSjjUj jJ utJjL£4J 4J4uoSjU j»4J 

** v ♦♦♦ ♦♦y ♦♦♦♦♦♦♦♦♦♦♦♦♦ 



j»4J djj Jj ^Sj Textbox |jj6 4J lJ dJ Textbox 4) dluwjjj (pj4ilJ rftj jt ûJJjLS4j 4J4«Lij4J j»4j 

.LÛJJJ 4JJjlw j4J J*4SjJjS 4S.(^u) LJjMjjJJJ jJjjJijTextbox 4J lj4J ( 3 ) jLijjÛJ j4l Ujl»4J4ijjji 

Dim Number As Integer 
Number = Text 2.Text 
Select Case Number 
Case 0 

Text l.Text = "jiw" 

Case 1 

Text l.Text = "d4j" 

Case 2 

Text l.Text = "jjj" 

Case 3 

Text l.Text = 'V 
Case 4 

Text l.Text = "jlj^" 

Case 5 

Text l.Text = 

Case Else 

Text 1 .Text = "4j ^j jjULj 4jjjUj j4j" 

End Select 

ûÛJ’JJjjj 4jjjlw j»4j jjjjj textbox 4J jLijjj £ji jijS^tj^ ^ljj 






















_Ş3_ $ _ 

{FOR....NEXT 

iSij Ly 4«Ljj4J 4&) ij&uU JjUjJJ imJLfjljf JUJJ^ j j SJudbtjd£ uJjAiLtJ jjjL& jA& 4J UJJjlSdJ ÊJAêSuSj lA j*4J 

.ûjjjjii ÊlJJijlu JJte <U ûjjlpjj 42. ( ûLSjJUjLj jLSjjb’ 

j»4S4u (^Jjûw 

For ((jJJjL«j ijjljjl) = (yjlÛJjAw ^jj) To ((jJlûj^ (^jj) 

ijJjjiSj gijLr JÛ4£ ÛJj4jUjJ 42 JtijSj 4J 
Next (jL24j yjjjUj jjljjl) 

Command buttonjTextbox ûojjjULj U424«jj£ j4l» 4J jUjjl jjLj jjj j»4j ûûjjj 4jjj1w ^4jj4m 41 J«4jj>U 

: ju/jjj«J Jjijjjû ^Jj JiJSnijS tj 

For b =1 To 5 

Textl.Text = Textl.Text + "(AbdulRahman)" 

Next b 

4 i" (AbdulRahman)" 4 jIj42 jU (j42jj jL^ ^ulu jjdSa jJ4w Ij4j JjjSj Jpêj 4j4îfjS j u 4 jU4j j»4j jêSjj 

.jitSiijn jU4S Textbox 
$ jff ûuL ÛuujuJ 4J4jlj4J 

Textl .Text = Textl .Text + "(AbdulRahman)" ijuLû 42 ?t}}i jjJi 4Uj Luuj b=l b For 4J □jj4w 
N ext b jLwU t j Textl .Text = 0 + "(AbdulRahman)" Ij4j 0= Textl .Text 4 jLûjj4w ^jj4jj4j 4J 
4J Lûlj b ^jLûj2 4J ûujjj Textl .Text = "(AbdulRahman)" + "(AbdulRahman)" jL»U b=2 Ulû 

ÛU£JJjJJ 4JJ£LW ftjj ub 5 

(AbdulRahman) (AbdulRahman) (AbdulRahman) (AbdulRahman) (AbdulRahman) 

i?*33* 

LjIj * (Loop) 424 jJ4j (_u4j.U4j^ (^JJj2jjUj 4J JjJjJj 4j44 IJm424j JsşjJm j424J ^42 j24JjjLjJ Jjsjjjj f*4J 

ÛUJJJ 4jjjiw j»4J iJiSsjlu 42 ( Step )42 jj12j44 (PJjSJjUJ 
For ((jjjjUj jjljjS) = (çiQtjAMi ^jj) To («utûj2 ^jj) Step ( jLlj44 ^jj) 
tjijjiSj JtjlP JJjş; ûûj4jUjJ 42 JtijS j4j 
Next ( jL24j (jJJjUj jjljjl ) 

Command button jTextbox ûûjjjUU lJ424*jji j4«4J jUjjljjU jji ?jj ûujjj 4jj jû£ ?Jj j4w4i J«4jjjuj 

: jutjjjjJ 4jjj ûw j4j j242jjj2 jj 

For b =1 To 6 Step 2 

Textl.Text = Textl.Text + "(AbdulRahman)" 

Next b 

(JjJJ 4ÛJJ LxuJ b=l U For 4J LÛJj4w ûjj42UjUj Ij jijSu? JJu? (PL2 41 42 UÛU4J4jjjU j»4j ^jjjÛjLSÛw 4) 

Textl .Text 4jDjj4w ^jj4j j4j4J Textl .Text = Textl .Text + "(AbdulRahman)" 4jjj1w 4j 42 fwjjj 
lj4jStep=2 (Jjj4j j4j4J b=3 LmU Next b jL&U jj Textl .Text = 0 + "(AbdulRahman)" Ij4j 0= 








Textl .Text = "(AbdulRahman)" + "(AbdulRahman)" jUb jjjei jp jjj jLSejlSjte <u jj 3=2+1 
(AbdulRahman) (AbdulRahman) ûjgujei ,»<u b6b= <U ûlj b yjLjjS <U 

(AbdulRahman) 


îDo... While &4uil4j 

<U pltAj i 4jL£*)bj£ jLULSJjUjJi <t£ For .. .Next <jjUj<Û jU<U UjUj4i A2 jUJuulSjU ,»<U 

Lt Uj ÛI 4 JJJJ JSJbjJL <*£ ûûjJU ûUr-j<L ûIjjj Ij Do ... While ^AwulSjU JU JSjj^ JUJU jbjljLj’ UûLuAjLSAJ 

. ûuj iSijijjjJ jjbjjj Aj ^jlûj^ Lul<U ujjSa IjpAiljp ( JSjjjS ) ASjjlJjS 

s jy*jjj (j»j£dJ i£ij*£ 
LUJJJ JjJ^lw fLAJ 

Do While ( 4 wj>lj jÛ<u-jû) Ijjjût) 

jjJûjjj JjUjjJ JjljlJjS j<U 

Loop 

: JJJjlfi fLjj j4w JU JûJjjjAi 

Dim D As Integer 
D = 0 
T = "ali" 

Do While D < 50 

D = D + 2 
Z = T + Z 
Loop 

Textl.Text = Z 

LU£JJjJJ Jjjjlu fLjJ Ij fLbfcj jj JJ 
























: jjLjji^JJJ J ipjifi 


LuJdJ 4JJjûw j»4J 

DÖ 

jjJlujj jjIjjjj 45 4iljlJ>£ j4j 
Loop Until (juujjijJ 4£4 ?j4« IjjjÛI) 

: 4jjj1w i»4J j4w4J Ji4JJJ4J 

Dim D As Integer 
D = 0 
T = V*" 

Do 

D = D + 2 
Z = T + Z 
Loop Until D > 50 
Text l.Text = Z 


Or , And , Not jUuj&j>£ ljjjI£4j ^Jjjjj4j ^iLSjjljjb jLSdjbji ^jj4um4j dl| jj 
And jJjlJjS 45 dJjj? 4J« jJ ^Sj4j44 41 4J44 ( 4Jjljl) jU 4 11 iTi i ) I4jJj£^^4j^^ 41 jLçSjJj44 4 jIjIjjLj j»4l 

4J4jjj«J ,»4J djj ûû j£ J J^4J,j^ Or jjlJj£ JluJ 41 

D = False Or True And True 
Textl. Text = D 

JJJ 4JJjlw i»4J j4l4J j»îf4J ÛJj4SjJjJJ True (J4mjj IJ Textbox jlj 41 jj4£jj jJ4 m IJJjll 

D = False Or True And False 
Textl. Text = D 

^jS ûAi luj Ij Or 41 dlj-jj j44 4S ûjj4Sjjjjj jUjj Ijjj 41 i lu^jjjjj False ij4wjj Ij textbox 41 IjjjÛI 
And (JjIjjLIj Not jîjljjb j4S4l djjj^ 4 j 4j 44 And jîjljjb 41 (J4 juSjj Not jîjljjb L4 jj>44jj . luj^jj 

■wÛjSjj jjjS luj And (jû4j Ij4j LUJ 

D =Not True And False 
Textl. Text = D 


.false 4jj4j True ûwlj ^4i ^jj4jj4j41 lûjjjjjj False jj4£jjjj4u Ij jjjS^4j^ 41 











j ûl£ 

IjAj uxiijS ^<U7iL7i ^LwU4j jLj j A j j majS jAui Ajjjjp jle AS jLjjjjAA 4S wuJ jLjJU 4J jASdJ 

4J JiOjMj uLS j»4J 4J4A (jJjJLS4J4j (jSjjdUj ÛLS 4 S . OJJJjS jL« Dssk top ujj i'lmJJ ^jbilj JjJ <U» JU^Lj 4 j 
^ jub f<4J jjA 4j jjJwj ûLS Ij4j I: Ji4Sjj4jj,a«jSi£jj4i!jjS yjLS4l) ûLSjj jLS ^uijl 12 oJJjj? <^S4j ^jjb SjA 

.( ûlSeijLS ojASAj 

AJ jIjj4jj ûL£ (jûljjJJ 4S 4 j4A JojAj i£bljJ i4LmJ4j JjjjjS i£4jUj4j AJ AS JJJJJ4J JJ JjJj4w JAuU j4j Ijjjj) 
.juijjjjj 4j|jj£ f>4j jLub jj Timer jijljub ^jbb ^Ijj jjjjIj^ t£4iljlu j4j jj4ûlj IJjLbbjjjjj 

djjbj44 jj juijjjjjjjjS j4j Timer jjljub ^iblj ^Ijj -1 

Labell.Caption = Date Time 

jjjjjlj 4jU4) aSajjAA Date Time ^bjw 41 jjjjIj^ (j4ibUj4i j»4iyibIjjj U 

Date: 5/5/2005 

Date$ : 5-5-2005 

Now :5/5/2005 10:30:00 ^ 

Time : 10:30:00 j 
Time$ : 10:30:00 

juijjjjj 4iljjS j4i lj4i ûLS ^iblj jj 

Textl .Text = Time 

jl 0:30:00 ûû^jjjjj 4jjj1w j4j Ijj jil ^bû aj 

juiijjjjj 4iUjS j4i jljj4J {jiblJ jj 

Textl.Text = Date 

5/5/2005 LU£JJjJJ 4JJjiw j»4J |jJjûlfkL»j4j 

juvjjjjJ jjjS ,»44 Ij4i Lunii ^jUi jdj jb jj j!jj4j j ûLS <jiblJ jj 

Textl .Text = Now 

/<5/5/2005 10:30:00 lu£jjjjj 4jjjÛu j4j IjjjÛI ^bû4i 

jutjjijj JjjS J4i Ij4i Lu f tJjJJ (4Sjç — 4 jj2jJ — jitjûb -jjj — ^SiU — jjUi ) ^jLwui JijAj jj -2 

Textl.Text = Second (Now) 

juijjijj jjjS /<4j lj4i ^ejS jjljj4j ^jjejJJ jj -3 

VBA.Calendar = vb CalGreg 


juujjjjj JjjS f»4J Ij4j jLSjjjj (Jjb ^jjj4SjJJ jj-4 
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Dim Day-Now As Integer 
Day - Now = Weekday (Date) 

If Day - Now =1 Then Label 1= 

If Day - Now =2 Then Label 2 
If Day - Now =3 Then Label 3 
If Day - Now =4 Then Label 4 
If Day - Now =5 Then Label 5 
If Day - Now =6 Then Label 6 
If Day - Now =7 Then Label 7 


"p&u IjUl" 


"AaaAu" 


Laptijdi teajlu jjjS 'tfJjtf ^lji 



□□HiinnDD ^j>«û -5 

Microsoft Calendar Control 100 aj ûLmUj Ctrl+T <uLÛLy ^jjS jbj jj 

»j Custem * Value: <u jj<Lub 4&jljj<u jû \jju . i£*jjj 4S<Ujjjj<U/<U jLwb «j jjjj jjauiu 

.tmUJHaijS jfcJj i£jA4j LAajjJA 

Calendar l.value = Date time .Calendar 

jfrujfjai Ajljljrflu pjj bValue <U b- 

<U jjj fb£4u ^jjjSujbj jj sFirst Day 
dju j jjj ^jjjSujbj jusDay length - Month length 
4iblSuj 'çu j4J U)4 jL^)j ^jjjljuijb ju sGrid Call Effeet 

** **v ** **v * * 


sjljS ûLS ylujj -6 

ijuvjjjjj jjjS |»4j jLub j jjjûjjjJUJbTimer ^jijub LjjjAm 

If Textl.text = Date Time.Time then Ring 

.ûhjJûl bJÛLSjJU aSaSjaj jLwb jû«Jb jljSujbJ ^LS b Textl <U 4S 
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i£yu»lJ 4J JJJjJlj -7 

_!^JL_ — __ 

pAj ta Module LjdjAw 


Declare Function GetTick Count Lib "Kemel32"() As long 



UjUASAjUj4i ^Button 4J jLMU4j 

Dim Minutes As Long 

Dim Hours As Long 

Dim MyTime As Long 

MyTime = GetTickCout 

Hours = ((IngOCunt /1000)/60)/60 

Minutes =((IngOCunt /1000)/60)Mod 60 



















. U uL S Jjj^fl jl£U4J ijJiM I^S j g )Aa jjljjU ^Lu&jLS4j > 4S44UjAj4J juUU 

: jLSjCLu^U 

// <Lt: 3 // Command button -1 
// <0i: 1// Textbox -2 

//4it:3// Form-3 

: A«ljj<U ^ufijl: 


Command j}ljjUjj:j4A (Form 1) jl<u :jUj ^jjji ^:j4j :jS j jUu<u jajj^ ^4 jUj<u ^:j4j :jS ^lj: -1 
:4 j:£l£ j»4: jjjjl:: 4jUJû4*J4ulj ? 4: LbLu jû::t: Forml <y»jja jjjjj4Mi4J Textbox j button 

_ ** ** _ * ~v _~^_ * ** ** _v_v_ 


jLS4jJÛ4«J 4 uLj 

jUjjljuU 

tH 

A^jLj 

jjU tfdSdStjljdnjj jjj 4& j:j4j:j£ j«:j 
(jçU&:: jj^4j yjtuJj 4 j Utj) 

Text 

Text 1 

j:jS>4j> 

Caption 

Command 1 


Caption 

Form 1 


. jj4S:: Add Form j 4 w 4 J 4U1S jLwU :j I: Manu bar I:jU^û4« 4 J jj4S:: Project <J«4 j j4w 4J 4LtS -2 



























Open Lxluj jjjjjjtJiu Form jLwb tj 



■uu»i Form2 ^jbdj <£ jjjûjjjjtfjb Form ûûçjjjjj ^SluSjj jUb 


■»j4ûj 4ie» jjbjjj (2) djbj i£jlijA£ Form 3 <jjjj5 ûwjjj jj -3 


.jj jSjJlwAJ djlS Jjdj <u jjjjjj^jjjb Form2 LxLu Project b jLSajjjj ^jJjû <u <U -4 



4j»jmH f>4j jjjjSii dS&tjjj} ^jû^jjluLj jj»£ti Form2 jAjAJ ULdS jLub 


jLS<U Jj<UJ <UjLj 

jl&jljjb 

tH 

iJj<uJ<luLj 

jjAw ^mJj 

V 

Back color 

Form 2 


. jjjS jJbJU UbkS <u jjjûjjjjjjb Form 3 LxLu Project Ij jLSjjjjj ^jjjuû aj <U -5 


Prcj e ct - Hi q|«-ê 1 


ED G3 Cd 





E 3 . fûrrriL (Form]) 
ei FriKmZ (F<~k tti?' 


F0Km3 iFCnTn.i:. 
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j»<u ijjjj+î JloLj jjASti Form3 j<Uu<U dUlS jUb 


jLS<U Jj<UJ 4 jjLj 

jLSdjljjb 

tH 

4jjLj 

jjju c^i«j 

Back color 

Form 2 


jtS ( jjjjjJuub ) Password <u tf&ujj ^ibl: jbjAj ûLSjjlu ûwjj 4S4»bj4j ^&ujS ^4j Ijj jll -6 
jb «j jj^jjjjj jJdiiJjJ&tl b jd& luiJJJj (jAjfijJji Jjj&tl IjJÛ Ijujji (jÛikIj 4J JUdjbj jAj jb dJAujjjdJ jjöLb 

. uu PHjtl 4S:jbj jJdJAb jjJjl:LSb 


jLSdjjju ^jjAasi 4 j <U <ujj, Form 1 <b ûjjÛjI: jb4Sjjjjj ^Sjj4u ^jjJjû 4j <U ûûjj: 4J4jbj4j j»<û jj 
j»4j jjjjjjtjj aa Command button 1 ^ljub <uûj. tjAu 4J jl>«b jj:j4a 4S jj4Su Form 1 j<b<U ûLUS 


- û^jjûj: jj ij::jS 


IfText l.Text = "123" Then 

Form 2 Show 

Else 

Form 3 .Show 

End IF 


4- 

1 

( jto jLwjJ ) iLU j^Jj4J 45j)£J$4£jdJ Show jJ^J 4J4J jstw ta4£d^j£ 4i 

.:Ju jLuoi : F orn 

|y£>—A 

1 j4j Qlj uui<U 4 S:: 


j4l juujjjj: Password 4SI: Form 1 ,»4S<u ^jji ^jLSjj <U j4l jûu:: jb<u:jjjj ^4u ^i:jS^4j^ <piS 41 
IjMjjjJj Password 4j:jbj j»4Û j4S j jjj4<j ^jLSjj 4S Form 2 ^jjji iSjLSjjj4m 4Ju£:: !j4i ^wjjj jb (123 ) 

(jjjLSjj 45 Form 3 ^ajj^ tiup&î Ij4j 

V V **^ 

4iljliu4A j»4i 4ûuujjj Ij4j Fomi 1 ^tjJjj (gjjtfc jj Form 3 j Form 2 41 Ul4Uj4A 41 jb:j4iJûlj4S jj -7 

: jÛJ 

jjuuj ^yjjM jj :j4ilj4S ^bb 4S juijjjj: ::jS |»4 j jLwbj jû::l: Command button ^jljub I: Form 2 41/1 
Unload Form 2 


:j4jlj4S i^bb 4S juujjjj: ::jS ^4Û jLwbj jû::l: Command button ^jljub I: Form 3 41 :jl£ jb44 <u /u 

JJMUJ ^jjJM jj 


Unload Form 3 


















/>4J 1 ÛI 4 JJJ 4jjj b-. ldjli<Ujj4 jljjj JU JjJLuwljS jjb 4 ûL£j 4£ (Ûljjlj jtuUljj4j p>4J <yjjJ jlj4J £ljj -8 
jLûLS<Ujj4 ,pLSjjljj|j j AjUjjî jJj jjjbj jjj jLûLSJjjji AS jUjJ ^LSjjjjJ jj jLu^Jjl^AJ ( JjUJûj ) JLuujjJ 

** v v ** **v » ♦ ♦ » • ♦ ♦♦ ♦ V~ V 

. JUJJJ wUjS ul£ L^J<U iJLiiLbufijlJ 4J 4JA& jLuJjSjLS ^UAjJ jUAft 4S wm? 4J jL| jUûJJ^J 4u<JjJJ ftîtdJ. jjjUj 


UnloadMe j End jl^ cgiljL? 

UnloadMe 

End 

4«ljj4J4J jjJ&jtS 

^lLlH^ 4J LLLLWdJjdA 

^pLublJ 4J luLjJJQjU 

Jj4JÛ 4J d4J 4JjjjjU d.J 

j»4J 45 ûb-J:UJJJj4*j 4J j4J 4j4J 

Jjljujjj jj (£jjj£ 

jLuZiHpte 4J LLLLtfdJj4A 

<J4jjj4jU 4J JÛ4f 4JjjjjU djj 


<ÛUj Ijû jlujjjJ JUJu Jj>w 
.. jûUj IjLj jLîijjj Jûju jjju .. 

.... JjUj IjIj jLujjj Jj<u ijfw. 

.jûUuljLj jLu^J JjiU . 






















<U djyg j !»□ :jj? l:4JjJûw JUul&jLSjj <U jJLuAjUd:. t: dujJj v j6jjA (gjlSJjUJj ijJjjj j <U ûj:jLS4: 


Jjj& ^yJjjS ^yfljJutK j j:jS JjJ& ^JjJm ujj&d&j)j 4S:jjjj 


$ Toolbox jLS:jljj|j ^jJûw jj jj<&: :bj tljbl: ^jLSjjjjLuv jjç- ++ 
.Ctrl+T :jj«S <s$* jj :j^Lj «jjj+iAA Components ^jj Project ^iauUl/j 


^oje-ct Fatrnat Qehug gun 
A dd Fortn 
''^ Add MDI Fgrm 
Add Module 
iS A dd Cla&s Mödute 
jŞj* Add User Ccjritrol 
Add Prgparty Pşge 
^ Addua^Bocuntent 
Add WebClatfS 


Add Peta Repgrt 
Add PHTMk Page 
Add Deta Envirqriment 
AddFila^ Ctrl+P 


Remove Forml 
RefereQtes. -• 


CDmponent^,.. Ctrl+T 


Projectl Properttes.,. 


. jj&i Microsoft Common Dialog Control 6.0 JmJj jAwjU ûLdS UûjJU ûûjdS::j:: 4 j:j1£ j4j jUb :j 


































yajfea kê & 


. jLSjjlj^U ^fi4j 4J ûIjjj :Lj3 tSjblJ ^JjJLLu 4jj$ifi ^Aj. jj^SjJ OkjAw4i ^LdS jLwU j$ 




. jLSdljblJ ^SjJLiw <^jLuAjL£4j jUJbJUUjJb ^Jb giULjt JLSJbUjJb UIj 
(Jbb-1) :Textbox -1 : jLSuluj^b jjIjjIj 

( jUIj- 5 ) Command Button -2 


: jrtwj^aLjjAJ 

. jJA^jJ iiljj 4Jj^ifi ^4 j jLS*jl>*Lj jL«4£A*jj£ 



jjjj^j jjjjI^ (^^Jl^lfi j»4j 4jUjjAû UjIÛ j»4J ûIjjj Ij4j jjjj^(^4jj$1w ^Aj ûmjj jj 


c>» 

i^tÛ<Uj<lULj 

3»>*û 

jhiufcjj ^ ^JU*u<îU 

Text 

Text 1 

2-Vertical 

Scrollbars 

Text 1 

True 

MultiLine 

Text 1 

jjAjjjS 

Caption 

Command 1 

û^o3^ 

Caption 

Command 2 

ûj£ 

Caption 

Command 3 

V 

Caption 

Command 4 

ÛJi£>« 

Caption 

Command 5 

Not pad 

Caption 

Form 1 




















































. Aj jJ4Sj uuuii j jJ i&lAA çJ jUJ LSjjjjb j uuudi jjjjLA jjAj LutuJ 

î»4j Jj4£jj j4wJJ ^SulS Jjjj ( jj4jjj£ ) jdjUjS Command 1 jjûUj£ jj^Sjj Jj wujj ûwlj jV 4J Ij Ljjj4w4 J 

. ^jwjjjjj J4SjjjS 4jjju12 


Common Dialog 1. Filter =”Text Files| *.txt| DocumentFile | *.doc” 

Common Dialog 1 .Show open 
If Common Dialog 1. File name =” ” Then Exit Sub 
Open Common Dialogl. File Name For Input As # 1 
Text l=Input $ (LOF (1),1) 

Close #1 _ 

JjJ j tJ Jj4a1£ j4j ^jLS 4S juuJjJ |»4£4 j ^jJJ 41 Fillter Ij4j jj4Sj jjjj4w ^4j (£jj4u 4wJ )U j4S4J IjjjjJ 
j<U jrui^jjLS<u jjûljjjj Ij Save ^mJj 41 Ujjj44 jj jûuj jjulpjj Ij open 414S ^4j5ûU j4j ^jjjS 
^ÛLSJJjU L^j4j IjIj .doc Ujjj4A jj .txt ^jSwb 4S (jûuJ 4i^bl£ J4j |J Open 41 (jÛliJJJ UÛU4J4«Ljj4J 

. jfûuj Microsoft word Lajjjjujj Notpade 


. j^wjjjjj 4Sjjj2 LaIÛ iûULS Jjjj i£$& 4j jgwjjjj (jJjS jj4j-) i£JÛUjS jj jjS jjjjU jj4j ^jLS L uû û 

Common Dialog 1. Filter =”Text Files | *.txt| Document File| *.doc” 

Common Dialog 1 .Show save 
If Common Dialog 1. File name =” ” Then Exit Sub 
Open Common Dialogl. File Name For Input As # 1 
Text l=Input $ (LOF (1),1) 

Close #1 


. jjwjjij J jjjS ft4j jJ4SjJ wjjj ^JÛUjS j4w4l ûldS Jjjj Ij4j « wjjj tfljS ^lwjjj 

Common Dialog l.Flags=l 

Common Dialog l.Show font 

If Common Dialog 1. font name =” ” Then Exit Sub 

Text l.Font Name = CommonDialogl.FontName 

Text l.Font Name = Common Dialogl.Font size 

Common Dialog 4Sj4jjj* »jS jlj ^ilSJûija ^ijjSjb jj 

l.Flags=l 

Common Dialog 1 .Show jjS jUjb 4 Sjj4jjm4jS 414S (J4 ilwija j4i tyûj4Sjjj jj 

font 

If Common Dialog 1. font name =” ” Then Exit jLS4i44 <pU4i jj 

Sub 

Text 1 .Font Name = Common Dialogl .Font jljjjû>Û44 ^jûja 

Name 

Text 1 .Font Name = Common Dialog 1 .Font jljjjûjul44 ^jûja ^jjb42 


size 







Command 4 41 juajjjj Jjtj jtjS tjjjlA tjdj ^jLS LLuj 

_~_*_ v _ ** 


Common Dialog l.show Color 

If Common Dialog . font name =” ” Then Exit Sub 

Text l.Fore Color = Common Dialogl.Color 

■ijrUMjpti Command 5 jj jj$j tfLLull Ijj&u 4S jjûjJjjJ jjjçjti ijijS b ^u QjS 41 

End 










. .open j Save jj juvjjlti tijS ?>4l \j4l 41jju j4!4mm jj-jlwij jj4Sj iSjûi jLS<Uub ^jûju £tj4j jj 

Common Dialogl.InitDir = "C:\Windows" 



AjLjLjdi j4j yjjjSjjbu jj feujjj a 4j\ijS j4j Ij4j Print ub ^JjLjS ^ûbb ^jLSUJ 
jiujjjti tijS f>4j \j4J ji4Jtj4j'îi j4Jb 41 jijS ub ^JUjLj (jjijSjjÛi JJ 


Number of Copies = Common Dialogl .Copies 

tj4 jV 41 

Start From Page = Common Dialogl .From Page 

«j4uVLj<l 

Stop From Page = Common Dialogl .to Page 













































4mLmj4m 4J4J4:b JJjjQJfdJ < uuJAJ tJ lçJ (J:j4Jlj4S «lbjl2 AJ j A iitji^AJ ;J:j4j:jSjt:jtjitJ JJ lj:jIS4j 

. öjiSjai jS (j:j LS j4J jj4jLSjj yjblilj 



. jLuA::jLS4j ::jS f>Jj :j4j:jSjl:LSb ^jjJûw ^jjjS ûujji jj LjjjJm 

Msg Box "jj^jjjSySG" 





OK 


3 


lu£::j:: 4J4£u2 |»4j 4S 


jjjjjS f»4J £$£ 4j ( Jj4jjjSjblSlJ ^::) jjjMjuJ juujjj ^SllSj: t: 4S42jJÛw jlj4J :j 4S JlSjJJlu ^Luujjlj tfijJjjj 


LUJii 

Msg Box" :j4j:jSjl:LSLj ^iuijji ^2::" „"4S43 jJlLw ^LÎujjb" 

uûj::j:: 4j:jlj f»4j 4S::jS ^yuwjjj ^tj: 



: jj:Ju:j:jlji’ ^4jljUj j»4j (jjbjj ûl::: jUj LS4 jLujj1j (pjljS 4 j jlS4uSjj lSjJI: ^jjj4Sjb:4j jj 


Shapes: 

16 - Stop 
32 - Qustion 
48-! 

64 - Help 





































Buttons: 

1- Ok // Cancel 

2- Retry//Abort //Ignore 

3- Cancel //Yes //No 

4- Yes //No 

5- Cacel //Retry 

j4J 4J j 1 '*4* ? '"J32J ^JjJLUJj jûjb No jYes LÛjJjLu jaSjj 

. ÛrfJJJ 

♦♦♦ 

Slct MsgBox ( jjJLuo Ij^yjJ Ai JJJLtw ^LûUJjU ) 

If Slct =vb yes Then 

^jjljUjA ^lj: ûjjij Ijûj £>LS ûjjdjti 4S j jjjS j<û yes 

Else If Slct = vb No Then 

^JjljjJ4A ^ljJ uJiSj IJlu jJjLS ujj&Jdi JS ^ju ujJiA 6ijS j4j No 

End If 


LLgJJjJJ 4jijûû |»4J 



■ Lt^jjj:: j jjS f»4j Ij 4 j «j4jjySjbLSlj ^jJLLw 4J jujb Cancel j Ok ^juSj: jj: j44 ûuj4jUj j 4S4 j 
S lct=MsgBox ("öjjLU (ijljufjj " 4 1 4 " jjjLU yilÛLtijU") 

IfSlct =vb OK Then 

^jjjljjjju ^ljj LJ4SJ IJûj (.SjLS ljj4jjj 4S juujjd: «:jS j4j Ok 
Else If Slct = vb Cancel Then 
^jjjljujju ijlj: lj4Sj Ijûj (JjLS ljj4jj: 4S jLwjjd: j:jS j4j Cancel 

End If _ 

____ __ ûl^iijti 4j«jÛl j4j 



Jj4jjjSjl:LSU ^JjJLLw j4l 4J ûJ4J4jLÛû ^jJjS :Uj jj 
. ju«jj«: ::jS j4j 4jjj4j:jSjl:lSU ^ûjjLU jj (x) ^jjjSjUj jj 
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Slct—Msg Box ("jjjJLu i$j\j*ijj Ja ", 0+16+1 ," 3jtLU^LwLûjb") 

If Slct =vb OK Then 

Else If Slct = vb Cancel Then 

End If 




LUgtijdi fk4j 


tişS j»4J (j4J (î) jUjj^wjAw ^JjLwoj i£Jj£ Jbj jj 

Slct = Msg Box ("tfjjJut ijjljttjj (j&tt ", 0+48+1 ," jjjJLu ^jLwojjb") 

If Slct =vb OK Then 
Else If Slct = vb Cancel Then 
End If 



LUgtijti dJtjlu i»4J 


fewjjjti tijS j»Jj jLuyjJ ^jjLwaj ^jjj&bj jj 
Slct=Msg Box ("tfjJJut ijjljwjj (j&ti ", 0+32+1 ," jjjJLu ^iLtuûjlj ") 

If Slct =vb OK Then 
Else If Slct = vb Cancel Then 
End If 





jjruy^^j 4£Au£jj Jjjjb lu$4jL*jj 45 ^4ûl*^j jAj 45 ^uljj jj4j 47r«jjn 



.LUJ( tfjjjuu (jjUvUjlj ) J ( ^JJ ) ^LLtfJJJ (ji jj.fi LUJJJ 
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© 


. ij d S d j dj (j42jj j jJ^jLS ^jIjjU ( j ilwAjLSAJ j 4S4jUj4j4J ^uUU 

ijLS4luJ£tJ 


// 4J|J 1 // 
// 4J|J 1// 
// 4jlJ 1 // 
//4ilJ 1 // 


Command button -1 
Textbox -2 
Timer-3 
Label -4 


: JUbj4J ^umjIJ 


jj4S«:jjj 4JJjlw fk4j jU4S<ULij4j ^LSjjljuU 



j 4JJjûw f»4J jJjjljJ jLS4jJÛ4«J 4 jjIj 


jLS4Jjj4«J 4 jjLj 

jUjjljjU 

tH 

4jjLj 

£$Li JdSdStjfjMfj jjj44 ^Jj4ijjS jijj 
(jçU&JJ ^Lj4j 4j ) 

Text 

Text 1 

4S<uUj4j jU 4ijje jj 45 j 4LJS 

Caption 

Command 1 

True 

Enabled 

Timerl 

2500 

Interval 

Timerl 

4ujjÛJ oJU&> i£4«jj 

Caption 

Labell 


. ju«jjjjj 4ibjSj»4i.jj4Sjj (Commandl) ijdiUjSj4«4J«4U1S Jjjj jLwb 
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Private Sub Commandl_Click() 

If Textl.Text = "abdulrahman" Then 
Timerl.Enabled = False 
MsgBox (" jûjjû*- 4 j") 

End 

Else 

MsgBox ("4J<U4A 

End If 
End Sub 


j j&i (timerl) 4Ld£ IjjjIjj 4) 

Private Sub Timerl_Timer() 

MsgBox "jJJjlj4J(J4S4JlS" 

End Sub 


jjjJ F5 <£4«Sj: <u 4 j jLwb 



^jLS 41 lujIjjjj jj b- jjljb jU Abdulrahman bjjit 4S ju«jjjj lûjj: jIjS jjb: <pii jmlj a£<u <y^j 4wjj 

. LUjj^j 4 j ^yû^j 4wjj |»4 j Commannd 1 jj :j£ ^ûuujjj 
JjJjl: Ij^jTimer jjljjlj 4 3 1: Interval ^jj44J4jjQ jj4Sj: jjb: jUj£ 4S 4S4 j12 <Pjjj jIj4j 4i j4j j 4S 
. I: :jS 4J j44 jj4jj jî4Luyjjj j4j <jjL£ wimj: jûijjj: jjbjj: 42 ûIj^jjjj: ûajjÛ^4j <^w£jj 




















AwSjj J>bi: j»Aj Ij^j * jjd&i Command button jAmJJ d ld S jLwLjj ju</jjjj jJaa aj 4S4wjj jjjLa j4^4j j»tf<u 

.lu^jjjj: 



4S4JLS ûiijJ&Jlj luj 4£.LÛ£j:jj:4wSjj dljJbl: j»4j Ij4j (jutjjjj 4 j ^u^j 42jj IjjljJAi jljS ^jb: ^jLSjJ j4^ ^^Taj 



.jjjj jIjJj 


<Uljj4J ^jbûjl ^jjjjl <U LUjSj IJÛj (JjLSjIjjI ijûljJJJ <U<ULjj4J j»4J 4S jdj jûljJJJ ^JÛjS 4) 

















I EVKOTS j&i'iii) 

jb«j djCommand j<b<U jjjSPress jujjj dtfj jLStfjljjjjdSjjS jUwbbjj£w ^jlStfLwJU aJ dtfjjAA 

.jbtfj ûltftfjjjj 4S<uljj<u djjltfjjj ItfJûLS jtfJ <^<uSjtf j<w<u j^jLtf 


: jLStfjl^tflJ jAuAJ 

v v ~ ♦ 

i£4tfJj 4J dtfjj4A . um/AJU jjljuU jAwljAtf jJjJjJtfJU<b uwAjAa ^jltfjjj jlStftfjS ijtfjAîû 4tf |£tfj4JJjS i£ljtf 

_ tfjbtf tfjtfjlj^ 



: Load cSjlajjj 

-r 

^lutfjtfiw 4 J ûjjStftf ^jj jtf- LUjujjjtftf b tfjltfjjj ?4J 4S ^tftfjS j4j (Form) (pjdjj <u <u <û<Utflû I 4 XÛ tfjltfjjj j»<U 
JÛ 4 ç 4 S 4 tftfjs j»<û ^jtfjS jtf-tfU jtf- <U Atf^ yjjjUjS dJjjtf- <U jtfluAjLStfU dJjjtf-JU 4 <Û<UÛj 4 tf ^tfjS jj jLS 

— JuA tfj jLStfjûUtf- tfj jLStfjljjS j tf J U 4 SLjjjJ <U<Ulj<U 4 j 44 ^Swtfjjw 

tClickçgjltfjjj 

4S ddûLS ûitftftf JkStftfjS Itftfjltfjjj ?4J UÛLStfjltfjjj jjj 4J 4tf<b jjtfLuAjlStfU jJjûjjj 4S tfjltfjjj jjjL&JjS 

ûjAjL£4j UjLSsUIjjsU Al JîJjlfjJD . ÛJ4 £jj ûwlj ^SalS L^jAj j4w4j 4£AmjU 

44 4 44 v 44 v 44 4 


:Dblclick (Sjltfjjj 

-r 

tfjljMjjj ijjj ijtftfjS jtfû Lrtiu jj4iu djjljubjtfbJJ dLdSjjtf dCûLS ûûjtfUUtf jdStfû ûûtfjLStfU tfjltfjjj ^4 j 

.ûjjSu 




























•.Keydown 

:jj^S j4w4J Key 4 j jL)4%j 4 j <u ûjjSj^^j^ ûj«4jUj jjjUj4S4j ûj:jli4j :jI:jjj f»4j 


:Key press ijjbjjj 

<U :jjmSj4m41 Key j44 4j jL:4:û 4 j 4j ûujSj ^4j^ ûû:j£ ûjj4jU| JJÛUJ4l4j ûu:jU4j :jI:jjj ^4j 

■ jlû4jUj44 l4:jj44 :j F12 IÛ44 F1 ^LS4uS 


tMouse Down şjIjjjj 

u4£ ^V4 j jb :j ûulj i$V4 j U ÛUj5j 4S4wjU j4j 4) ûLdS ûLjLS , :jlj«/jjj 4S:jljj|j jj 4S ûl::: ^4 j^ ::jS f»4j 

:Mouse Over çgjbjjj 

.jjIjmjjj jj j4S::jS 4S Ûuûdjjj-:: 4S:j!jj|j j4j4j 4S4ujU ûUjLS ,:jljwjjj 4S:jljj|j jj 4S ûû:: ^4 j^ ::jS ^4 j 

:Mouse Upijjbjjj 

:jljj|jj4jj4w4) jnjU ^jjjS 4 U iS (jlj: * ûLS:: \gpAj\gir ûûjbjS 4S:j!jjl: :jij«U 4S ûLuU ûuj:: \gpAj\g? ::jS j»4j 
djjlj«ljj4w4J ûLûU LjIj 4j:j!:jjj fk4j jjj&jjS jJjSi44 ûu:: 4S jjjSJ44 4 L US j4w4J ûu:: jLwU j 

.ûjjjS4ÎJ4A :jlj«|j j4j j4w4J ûu:: IÛ44 ÛCIÛjjj 4S:jI:jjj Ij4j ÛJjij 

:Unload jjl:jjj 

-r 

. Unload Me j:jS ^i: jS^ 4j^ ^ÛLS 4J ûujS:: ^4j^ ::jS ^4Û 
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Menu 



jjç 4«4 J :j <U jUjU.Jj^ Menu barjU jlLu j4w4J jUuAS j^ûj^yujSjJw 4jjjjr 4S 4 j4jIj4J 


jUjj’ jljjj 4j Jlijjj 45 luJJj£ jj4J jUju j»4SU jJjU j»U4j . jlû:: tjj£ JjlS 4S JÛjljjU j44 UuLû 4S :jIj£ ÛwjjJ 
U LulU ^:4jU jU4S4jj4^ I jjjUJ jj4j . jyj jUjU j jjljj: j :jiw jUj^j44 :j Meue d:jU- 4j juj jûljl: 

. ju Menu ^i: ijS ûwjj: ^ji'a :j4S4U4j 
sjjjjIj^ iJ4j:jlfi j4j jJ4Sj ûmjj: jLS47nn t jjlfi jjjuLwU 4 j jûljjj: I: ULj4j j:j>û (J4:Uj4j4i 
. 4 j44 I: 4jUj4j t :j:j4j (jL4j 4 i 4S jj4S:: Menu ^jjSjû j4j4J ULdS IÛ:j4m -1 

ifiîe Edit View Project Fonre 

^ - b {^V y 


ujj4Sj:jj: 4j:j4ju 4j j4j j:jS 4LdS jjlj:—2 



jbvjjjj: jlû47nn t (^LfiujjU IJuLû :Option 
juijjjj: 4S4luoJ ijjUîName 

I:4w4j j4J Ij4j jûjl: Open jUlwuj j4S 4jjjU jj ûjjjjwl44 4lwbJ j4j ipjljSûjjS ûkûlju:: l::jÛJ: Shortcut 
(jjLS 4J ûLS::jl5 :jljjU j4j :jjuS j4«4J (O) ^ûu J4^4J JjjujS (j>L«jûl: 4j tûlj (Ctrl+O) juujjj:: 

f>:jj: (jlwbJ j: :j4ûlwljl jj:Next 































. I4j 41 jL oJjj^jjJ; Window list 
. jLS47iiid lmlû4j 4 J ûwlj ^ajLmmLû yjjj^jJJ jj : Checkcd 
4l( jjj^jJJ 4 ijjd&' 4 tjAJljS) fjjlS&udJ uJjdjLtJ jd£ jj jJjSj uujjJ £Î I41 uUjAjLmJ jJS&J — 3 

.jiujjjii ^1U4m4j L fc Lu | | j4w4l d L lS DdjLUu Ij4j jjJijjljj Jjlj ^7»Mt 

IJdjljjU j4j b Caption &ÛAJ 41 Qjj4m Ij4j i*IV7iim t ^£4J jjJ jljJj 41 ûjj4A ^SjjJ jlj 41 jUûuJg j4S4j- 4 
ûjjjj jLûljjj 41 ûljdju 4jjjlw j4j b Name ^m4j 41 IjjjjJU t^jjjlj jLwU jj (-) jjj:i: 




jjjS j4j !j4j . wûj4ijjjj File ^jlwal Ij4j jj4Sj jU4Sj Form j4w4l ûwlj ^wjU j^SoiS djûLS ^jj4j jj -5 

jj jjjjjS jUwbjLwjj 414S MouseDown ^jIjjjj 41 jiujjlji 



ûjjjj 4jjjjiw j4j jw4£jjj£ 

If Button=2 Then 
Popup Menu File 
Else 
End If 



. jta/jjjjJ jJjS jk4j Ij4j jj4uj|J uwlj 41 jLS4.inKii.iJ ^4mljL ^jj4jjj 

Forml.Right to left =True 
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(4^ 

jjljjLU j4j 4 uj j4j Shift+ ijjft 4 j lj<U ûûjI: ûUlu jUj4j ûljLu 1: jL24Uul 41 ^jj4j jj 
4 jjj^j ulu 1 JjJj dj uj^iUjj *\£ ^4jjj j2uJ ^ uJ4§y 1J & ? jfUU.u UjjAw ull 

u:. ûU>5j^4j^ 


& Open 



Caption ^fi4j 41 Ij4j jj4£j ^^4j{^ j U \ja Lj JjJJjjuS ^{£jj aj Ijşt^ ^^S^jjjjfi &j ^s^aj ^b 

4j jjljjlj j»4j <u Shortkey 4<ujj ujj<UUjj 45 i£4ûj j4j JJy 41 jotj b " &" j<ûLij 45jjl>«lU 
jJ4w JjlUlJ jU E ^4wjj JUL) 41 4S &Exit t£4wjj jmjJ 41 jUL <Ujj*J jj ddj jJ4^JJ ^4J^ jjljU^ 
jjljjLU j4j jUljjjj (Alt+E) ijj4 4 j uj:I: (E) JLş jUj 4 j dULu ^ULS 41 jj4S:: 

.(Alt+:) (jj4 4 j 4S (jjj£j::) 4J:j Uûj ^jjjS U uL ^j:j 4& jbjj ûûj English 4S4uj g U- jj45U^4j^ 


jj ^SÛULS jj jj45ojLS41 juj 4S4jIUj4j (Save) j:j5Uj4^ &l:l£lU 



lj J<u<U * ûjjjjl: ^jUUj^Ij yu4j 41 ûlijj«u Option Explicit ^4fijj 4Ujjjj 



. jujDebug yujjj ju4S l:4jjjjjj j 41 45 ûLSj: 





















: jLS:jjjL£jLS4: jjljjlJ 

// <ûi: 1 // Command button -1 
// 4jh 1 // Textbox -2 

// <ûi: 1 // Drive listbox -3 

// <ûi: 1 // File listbox -4 

// <ûi: 1 // Picturebox -5 

// <ûi: 1 // Dirlistbox -6 


JjaS:: jjj djl^j 1 (jAJtfla j>dj 



(>4j jUiljaj jj4S:: Filel j4uAJ dUlS Jj:: LjjjAm jLS::jS jj 

Private Sub Filel Clicki) 

Textl.Text = Filel.FileName 
End sub 

ju*j^:: ::jS ^ 4 i jLwb jj 4 S:: ( Dirl i£:jb 4 j 4 S )Dirlistbox (jjljjLjjAjJÛtiUSj::: jLwb 

Private Sub Dirl_Change() 

Filel.Path = Dirl.Path 
Filel.Pattem"*.*" = 

End Sub 


juKj^i:: ::jS ^JÛ jj 4 S:: Drivel j 4 u 4 J dLIS J::: LuLû 
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\<ê 


Private Sub Drivel_Change() 


Dirl .Path = Drivel .Drive 
End Sub 


ju j»Aj LxLu jitSu Commandl JldSjj j b ^jljjS <Q 

Private Sub Commandl_Click() 

Picturel.Picture = LoadPicture(Dirl.Path & "\" & Filel.FileName( 

End Sub 

jAw jAiljLSjJJ Ajjj yjl: jLLû jj Lûu jjJj:: F5 4j <uû<v 
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jLSj^jUjLSAj jjljjû jjd.wiiii.J $\j jj ijdJLLitfS jLwL; j jLSdJjLûlj ijtjdjijSjjj j^JjjLûlj ^ jjS ûujji 


//4314 10 // 
//4314 3// 
//4314 5 // 
//4314 2// 
//4314 1// 
//4314 1// 


label -1 
text box -2 
Listbox -3 
Command -4 
Check box -5 
Combo box -6 


jJdSdJ jj) JJijxS f>Jj j^jjljjb 



4jl:jS i»4j jLwb jjdSa (Commandl) ( 4S4luoJ jj CjjSjJbj ) ^JjUjS j4w4l ILIS ijjjj IjAj jjS jj 

Private Sub Commandl_Click() 

Dim name As String 
Dim age As Integer 
Dim city As String 
name = Textl.Text 
age = Val(Text2.Text) 
city = Text3.Text 
Listl.Addltem name 
List2.AddItem age 
List3.AddItem city 
End Sub 






























91 


4j sjlû |»4j j (Command2) ^jjUjS jj jj£ jLwU 

Private Sub Command2_Click() 

Textl.Text = "" 

Text2.Text = "" 

Text3.Text = "" 

End Sub 

4J t$MM fk4J Jj4jj4^jjjj jLS4jjLûlj jj4& J^4J^ 4S4jUj4j Ij yjljjS 4 3 LxuJ 
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jLSdjbjjj ^Lu&jLSJj 4J jjjJljjjLw jjbj jj : 4 jIjj4j ULj 
. jU4£4jUj4J ^4jjj 4i >» U lb'j4A ^Ljjj ^JJj&jUJ jj uJJjli4J: 4S4 jUj4j (Jjj4j JjS jjjj 

: jLS4.i*Jj).u jjljjb 

(4jIj 1 ) Label -1 


(4iu 1 ) Picture box -2 


^JjljJjA ^jlJlib ûdbJJJ 4 U»-j4j 4J juajjjjJ 4j|jjS j»4J LaÛJ (picture 1) lijl Jjb j4m4) jJjS 4LJS Jjjj jLuU 

. juj MouseMove tfjlJjjj 


W Prûjectl - Fifrml (Code) 


' 

Wur^l T MOUSeMftve 

1 2. 1 

— -=L 


Prlvate 5ulo Plctyrel_CloyaeHove (Buttcn As Iuteget^ 
Linî s Aa 3tring 
Lijn a AE 3C-I iAg 
3 - CStrtig 
s - CStrCY) 

LsLall. C&dlIoa = ,r n:" l s i "r 11 £ "ys" i g 


Ei-d Slû-J 



. jjj^jjlj F5 4j 4jU 4j 4S4jUj4j ^JjS^4j ^ jj jliU jj 
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| < ûSMb323(! 


ûtacsîiSSm 



<jjLxûj\* 4*Ljj4j j jJjS jJljJJ 4S<ûjjJdJb £Uj4j ^AjLjjAj ^Aj jjjiSLbjS 4 j jLS^JjLulj t£4SuJ 
j*j*U DIj i£4jj>*j jjjtöb UjU4S4JÛji jj )jLS4SjU j jLSlijS £)jSjLS j ^jbjlaj <jjLS<Ubj<U 

jj lJjSjj jUj ^^j ^LJjU ^jb iJjLp 4S. IjuSjIj ^llji^AJ j^aljAJ ujAj ^^LjjAj ^jU 4S ^SIjj^ 

4j 4^ iS^ijL)b jJU^'i ASjjbjjj ^ ^j^w 4 »ulî^La j4& Ujjj4£ jj jj^JjSjj j2jj jIjJjS ^jS ^jb UjjjAA 

Ujjj^jj j Microsoft Access ^AjIjjAj ûjjjjjjlJjj ^jLS^jjUjIj ^4Soj 4S <uIjj4j jjjîSdjji (. jlU. 

. jJASjJ JMM.S4J ^4jIjj4j 4j^U IJJjil ^ajj JSljil i£A*ljjAJ 


♦ jLmJJ&jJjS jLS^JjLuIj £A£jû Al ji^ jjJU4fr 


(dBASE) Jiirfi-l 
(Fox Pro) jjj j-SjS -2 

(Lotus) jfcijJ -3 

(Paradox) <>*SjJbM _ 4 

(.mdb) jmuiSaj -5 

jm&Aj i i^j)d(jjijij 4S < Jj (.mdb) i£j$sp AJ 4S jjd£a ^jLjjLûlj dSt ij jdl j«Lj (jjjjJ Amj 













Luvjji ijtjJjUu* jutjjt b Microsoft Access (£4>ljj<u 4J jUuljjjU jUAjjjj 4J4jlj4J 

. jJASti jLuyU jLij4& <U Uuoj tiiLu iyStJtjlu <U jlSjjjLjlj (£4&U ^JjS 

jjj|jjjjAj4jljjJ^Aj IJUU4Sjj4j£ujj£ <U luu Ijjjj4jlj Microsoft Access ^4jUj4j <U lujjj Iujjjl -1 
.LkÛjjjUlJ juuiSdi ^<Uljj4J ûujji tftjlu 4J jj4SuUu4J 454»Uj4J 4J l»4jjLj CD <Lu«J^u Ij4j 
ûwlj jjjjj LxLu Programs <LU<&j Lj jjjjjj jllj44 jjjj4w jjj4j jLûb jj4Sjj Start ^4j j4w4l -2 



.LU£4£jJjJJ QimStJ ^<Uljj<U ^Jj4w jijLSjj I aL û -3 


















I<j yejfej tl 



ijuLû File IjAj .jjj&jBlank Database <^4jj4 «41 ddS h ûmIj «U -4 

ûjjjjjjûaa New 

i»5fJL) 4 j4& IjjLSjj 41 (jijlijljjS uûj (2003j XPj 2000 j 97 )j4S jU4S Microsoft ^ Version i$jjj$S 4j -5 

. jU4^ j*Uy dj 

lujjj lujJlj fkbj 4j IJULÛ ^jLSj44 ^jj4j JîbuMicrosoft Access t£4«bj4J 4S ÛjljU jUjb 41 j4^4J -6 
"databasel" □lj"dbl" 4SjjIjjLuj4m ^jb Ij4j^ûlj4jûjbj4£4j jj lj45j j ^jlu ^Sjjb4S4bU 

. jj4£jj ^jLwb ûmjj lj4Sj (i Save lj$4jjj 4S ^4^ j41 lujjj 













































Create table in Design view jAwAJUIUS b table 4Jjj jU "dbl" <u jLfib -7 

♦♦ ♦ ♦♦ ♦ ♦ V V 

. jLSdJjLûlj i£4SaJ ^JJjS jjljjj jj jjASjJ 



jj ju«jjj jbjj Ij Field name ^<u <U jûjjJjJjjlj ûjj<UUjj4S ( ijjûbj^) ^AjUjJjS jjû IjjjJU Umj -8 

jj4Sjj(iijbJ Fieldijjip-DataType ^AjjUjLfib 


Filed name 

Datatype 

FirstName 

Text 

LastName 

Text 

IdNo 

Text 

Passport 

Text 

Sex 

Text 

status 

Text 

Nati 

Text 

StillCountry 

Text 

from 

Text 

RoomNo 

Text 

ComeDate 

Date/Time 

LeaveDate 

Date/Time 






























ÛLS;: ûljb iJULu jUZuj ûû: dJb ijijbliLj ^Jjum j£ jjji-jjb gjj| ^jl jjU ^aj 4Sjj4su Aj jLwU jj 
^ Aj uUjJUJ u aSAlû^ ^jU ^IjIj Ij ^jIjj AJ jJjJjJjJU AA Yes U jU uLSj ^JjA^ jjjJjI ulumjjJ LjU 
4l ÛLSjj ^ ûljlj b ^jDjlA) jjaSjj Ok LjIj jjj&j ^jJ^ Tablel ^ ^jU <ujju juu ûUj ^jjA£ ûbjlû 

jjjj^AA No IjjjuJ ujAiU IjaS^lû^ AJ ^SLuUjJjJ {£Jj4jjJj 
ş&aj&jAm (jSj Table jjjU 4ûj$$j LIuoj 









































luASjjL} jl£<U)Lûlj tJuLû ûû$4Sj:jj:4S tiJkt- £>LSjj jj I: table 1 jJL«41 j:j5 ÛLdS Jj:: <U uLIjjj: 

.lj4Sj jb jjliûw:: jb:j 


jjjU jj&û I: Visual basic ^<ubj<u <U jûi$jjLS4j Access Databasc j»u£4j ^ISdjjLûlj £&.: ^jj jj 
jjjLa j4^4j Access 97 jj jjjjij ^4i:jj^ 4 luu^u jjjljjjjJUJûl: jb4i:j4jjjx«ji 4) Microsoft Officc 97 
fk4j iJj:jj4j 4L«jjjj jj4Sj y^4j ^ j^jjbji j»4j ^:j4j jj jjjLuA jlS4: jb AcccssXP jb:j Access2000 

: jj4Sj 4tf b- 

4Sj Convert Database j4«4J 4L£ jLfib j :jjjji44 Database Utilities ^4 j I: Tools ^juul 41-1 

To Access97 File Format...j4u4J bLdS b^jljjS 4i 



jûjJbJ ijjb jLwb jj jJ4£j: £>b: IJjLj ^i:ji j}4£ ^jjju UuLb 4i Ûuj4ij:jj: jj jb4jjj4jû 4 j j4l jLwb -2 

. jJ4£j: Savc j4m 4) bLdS LaLû 

ijjj4dbkw4j ^j4jjj^ I: jjjUI: ^iL£4ilj4J 4S I: jih»S 4 i ^4«bj4j 4J jlS4jjLûlj ^4Sb jjjb - 4 ujj jj I: ^jLjjS 41 ~3 

.jjj:j:j»bû4l I: Visualbasic (J4«bj4j ^41 4 j jjLûlj ^4 Suj j4j 





























cLjfU «U jmuiAj aJ jLSdj JjLulj jAÎJu jJjAJuaAj 

pûxu jLS<UjLûlj i£*Sm jû\£»i AJ AS jrûl4»jlS»j Datajjljjû ujju IjAj jlSJjjLûlj <£»Sjj jj 

. jjjj% i^b »j jjjAujV jb jj& tfJbj 
f>4J jJ&A&JuJ 0jJjJ jUjj^LjJ b ^luUJj dJ jmuS 4J jJfaUjAJ ^jlSJJjLulj tfdSiJu i£JjJa LLvdJ jJ 4jjû 

: 

.jJJSJ jJj ^Jdjlfi j»AJ jL^UyJjfcU djljjlJ ûjjdJ LûdjAw 























































^LSajaj^uj AjjLj 


tp 

^jjAjJJUjQ 

ÎIjjU 

iû 

Caption 

Label 1 

j^J 

Caption 

Label2 

4jLuwLj t£djL*j 

Caption 

Label3 

AaLULj 

Caption 

Label4 


Caption 

Label5 

JUAIj 

Caption 

Labelö 

^J4jtf ^jU 

Caption 

Label7 

^JjUj 

Caption 

Label8 

J^dlubj 

Caption 

Label9 

jjUj tijiij 

Caption 

LabellO 

RecordNo. 

Caption 

Labelll 

Datal 

Caption 

Datal 

□li jU424uuu24J JJjU ^yjjfl 
UjUJjJUU j4j j»4l (db 1) ^bU 

DatabaseName 

jUASJuiuuS4J 4bU (jLuJj 
Tablel IjjjJJ 42 jjjjjjjjJju 

RecordSource 

TxtName 

name 

(iU^bjjJjJUjljAj) Textl 

Datal 

DataSource 

FirstName 

DataField 

TextNo 

name 

^jjUj^kjJJjJLwljJb) Text2 

(<ULLAj 

Datal 

DataSource 

IdNo 

DataField 

Text3 

name 

(jrUljb ^JjUi^ ûmjj4j ) Text3 

Datal 

DataSource 

Nati 

DataField 

Text3 

name 

(jrUljb ^JjUi^ ûmjj4j ) Text3 

Datal 

DataSource 

Nati 

DataField 

Nation 

name 

jjili- (jLuaJ ûûjjJj) Text4 

(^JULULj 

Datal 

DataSource 

Sex 

DataField 

Text5 

name 

(Al JiijLft crLu4) ûbiûJj) Text5 

Datal 

DataSource 

Form 

DataField 

TxtFamily 

name 










































TxtFamily 

name 

< <du<bj ) Textö 

Datal 

DataSource 

LastName 

DataField 

PassNo 

name 

(<dU4b ) Text7 

Datal 

DataSource 

Passport 

DataField 

Stat 

name 

JuAl ) Text8 

( (jPAjuujJ 

Datal 

DataSource 

StillCountry 

DataField 

TxtRec 

name 

(Recordnoy^LuAJ )Text 9 

4*3* 

Caption 

Commandl 

ComExit 

Name 


Caption 

Command2 

ComDelete 

Name 


Caption 

Command3 

ComEdit 

Name 

Ö^ö 

Caption 

Command4 

ComAdd 

Name 

ywijb 

Caption 

Command5 

ComSave 

Name 

Last 

Caption 

Commandö 

ComLast 

Name 

False 

Visible 

Next 

Caption 

Command7 

ComNext 

Name 

False 

Visible 

Preview 

Caption 

Command8 

ComPrev 

Name 

False 

Visible 

First 

Caption 

Command9 

ComFirst 

Name 

False 

Visible 

StCom 

Name 

lijLi luuöa j ) Comboboxl 

Datal 

DataSource 

status 

DataField 

RoomCom 

Name 

)Combobox2 

Datal 

DataSource 

RoomNo 

DataField 












































jL£d}j>4lj jjS 

jjJStj AuiUij tiljljjZ ?>tû bGeneral jJ □«j4w -1 

Dim Ext As Integer 
Dim Del, X As Integer 
Dim FirstName As String 
Dim db As Database 
Dim rel As Recordset 
Dim able As Integer 


: j»4j ijuujpJJ (TxtName)jj jjS -2 

Private Sub textl_Change() 

FirstName = textl.Text 
End Sub 


: juujjjiJ JjjS ?4J ( jjj ) (jiujjj jj -3 

Private Sub Optionl_Click() 

Text3.Text = Str$(l) 

End Sub 


: jLujjJtJ iJjS ^Jj ( ) ^gjjuJjJ jj L&ijjdA 6j~ 

Private Sub Option2_Click() 

Text3.Text = Str$(0) 

End Sub 

b textbox fk<U ijljjjU text3 jj jîubL| £JjL»jS ûAûJj u4j Textbox &*Sjj lu&j jS JjjjS jmL 

.'(ji IjIj ( jju ) öjUj [JajjJJ tj jjj LjIj U)4j jjUj 


4SjjLS 4) wÛj4jjjUIj ûLSjil ujLuujJ i£ uj t JjiJ jlluSjj jij JJjb b ijjJ (^Jlûj£) £Jj!jjSjj jjS -4 

. JjjjS JuSIj jj JS Lu M jtJ 

Private Sub ComExit_Click() 

Ext = MsgBox(" ûxufi 4 &>jLS4j yj QjS ujjtjtj blu ", vbYesNo + vbMsgBoxRight + 

vbQuestion + vbDefaultButtonl, " yjûjS") 

If Ext = vbYes Then 

End 

End If 

End Sub 









j^ujjjaa 4j a$lui pdj ( ajajjjM) £JjL»}Sjj ajS-5 


Private Sub ComDelete_Click() 

Del = MsgBox(" aj£jj*j ûjj 4 j aa" & FirstName, vbYesNo + vbApplicationModal + 

vbCritical + vbDefaultButton2, " i&blib!!") 

If Del = vbYes Then 
Datal .Recordset.Delete 
Datal .Refresh 
End If 
End Sub 


^ajSabj jajdjjjMj jrkwljlj jj jjuojjj aa JjlajS pjj b ( ComEdit) 4j ajljjjûaS ( ijjlSjljjS ) gJjlajS 4J -6 

û)4JjLûljj4A 

Private Sub ComEdit_Click() 

Datal .Recordset.Edit 
ComSave.Enabled = True 
ComEdit.Enabled = False 
ComAdd.Enabled = False 
End Sub 


^aajSaûj jj faujjjaa jj ^4jbjS ?aj (ComAdd )4jdjljjjlj 4 S (4jjj£jbj) ^JûbjS 4 S JjLtjS jjj&jjS -7 

b (jimSij (J4£4aLj 4U 41 jL4JjLûlj 

Private Sub ComAdd_Click() 

Print able 
able = 0 

If Optionl .Value = True Then 
Text3.Text = 'T" 

Datal .Recordset.AddNew 

TxtRec.Text = Datal.Recordset.AbsolutePosition + 1 & 7" & 

Datal .Recordset.RecordCount 
ComAdd.Enabled = False 
ComSave.Enabled = True 
ComEdit.Enabled = False 
Else 

Text3.Text = "0" 

TxtRec.Text = Datal.Recordset.AbsolutePosition + 1 & 7" & 

Datal .Recordset.RecordCount 
ComAdd.Enabled = False 
ComSave.Enabled = True 
ComEdit.Enabled = False 
End If 
End Sub 







d4j:j4Ûj*i jbjj d4j«:bj jU ^ylwljU jj 4j djljjjlj 4S (jbljb (£JÛUjS -8 


Private Sub ComSave_Click() 
Datal .Recordset.Update 
able = 1 

ComAdd.Enabled = True 
ComEdit.Enabled = True 
ComSave.Enabled = False 
End Sub 


ijuvjjj:: 4jl:jS (Datal) 4 j jjIjmU 42 Data(Jjljjb -9 

Private Sub Datal_Reposition() 

If able = 1 Then 

If Datal.Recordset.Fields("Nati") = 1 Then 

Optionl .Value = True 

Else 

Option2.Value = True 
End If 
End If 
End Sub 


(jjlj: 4 ^jlbjS 4 jytiSiJi Lj:j4m ) jj jû::l: (jJliUjSjljç l::jji -10 

jutijjj:: jj jb4jl:jS j4j 

ComLast 4 j jjI jijb 45 (Last) (^jLjjS)julj: ^JiUjSjj -i 

Private Sub ComLast_Click() 

Datal .Recordset.MoveLast 
ComPrev.Enabled = True 
ComFirst.Enabled = True 
ComNext.Enabled = False 
ComLast.Enabled = False 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
End Sub 


.ComNext 4j jjljjjb 45 (Next) ( jjIj: ^oiUjS -u 

Private Sub ComNext_Click() 

Datal .Recordset.MoveNext 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComPrev.Enabled = True 
ComFirst.Enabled = True 
If Datal.Recordset.EOF = True Then 
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Datal .Recordset.MoveLast 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 

ComNext.Enabled = False 

ComLast.Enabled = Fals 

End If 

End Sub 


ComPrev <u *£ (Preview) -£ 

Private Sub ComPrev_Click() 

Datal .Recordset.MovePrevious 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComNext.Enabled = True 
ComLast.Enabled = True 
If Datal.Recordset.BOF = True Then 
Datal .Recordset.MoveFirst 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComFirst.Enabled = False 
ComPrev.Enabled = False 
End If 
End Sub 


ComfirstJb 4j<uUj<u j»<U«$lIjjjti & (First)^ru4S4j ^JûUjS -j 

Private Sub ComFirst_Click() 

Datal .Recordset.MoveFirst 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComFirst.Enabled = False 
ComNext.Enabled = True 
ComPrev.Enabled = False 
ComLast.Enabled = True 
End Sub 


tyjMû ,»<u Load ijijbjij jjjAJ iju«jjj«jform jj jjS -11 

Private Sub Form_Load() 

Set db = OpenDatabase(App.Path & "\DmDataB.mdb") 

Set rel = db.OpenRecordset("DanahMoter, dbOpenDynaset) Datal.DatabaseName = 
App.Path & 7dmdatab.mdb" 

StCom.Addltem "ÊioDa" 

StCom.Addltem "ÊÊDa" 
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1 

able = 1 

End Sub 



Activate iSjbjjy Form jj jjS jj 

Private Sub Form_Activate() 

ComSave.Enabled = False 
ComFirst.Enabled = False 
ComPrev.Enabled = False 

TxtRec.Text = Datal.Recordset.AbsolutePosition + 1 & "/" & 

Datal .Recordset.RecordCount 
End Sub 


jLSjjljJjLw jdjUjS jj jjS -12 

(Last) (jaiUjS-l 

Private Sub ComLast_Click() 

Datal .Recordset.MoveLast 
ComPrev.Enabled = True 
ComFirst.Enabled = True 
ComNext.Enabled = False 
ComLast.Enabled = False 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
End Sub 


(Next) ^JûUjS jj :jS-u 

Private Sub ComNext_Click() 

Datal .Recordset.MoveNext 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComPrev.Enabled = True 
ComFirst.Enabled = True 
If Datal.Recordset.EOF = True Then 
Datal .Recordset.MoveLast 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComNext.Enabled = False 
ComLast.Enabled = False 
End If 
End Sub 







107 
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(Preview) ^JûUjS jj ijS -ç 


Private Sub ComPrev_Click() 

Datal .Recordset.MovePrevious 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 

ComNext.Enabled = True 

ComLast.Enabled = True 

If Datal.Recordset.BOF = True Then 

Datal .Recordset.MoveFirst 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 

ComFirst.Enabled = False 

ComPrev.Enabled = False 

End If 

End Sub 


(First) (£djuj5 jj ijS -i 

Private Sub ComFirst_Click() 

Datal .Recordset.MoveFirst 

TxtRec.Text = (Datal.Recordset.AbsolutePosition + 1) & "/" & 

Datal .Recordset.RecordCount 
ComFirst.Enabled = False 
ComNext.Enabled = True 
ComPrev.Enabled = False 
ComLast.Enabled = True 
End Sub 




(BOF) ^ASLtSj^ (EOF) ^ASLtSj^ jaS 












£)}? ulidi IJjLû iS Jji Qajûui IjAj b JLj4j'J ajjA (j<uLjj<U jlj <U Wizard ^Luft jj -1 


Add-In Manager ijjj<U Add-InsjA«AJ jIUS ULu . jj iSaa Cancel bdjJd jjjj>dA4 4 Sj>Ij>S 

fidd-Ins 

Visual E>3te Manager,,, 


Êdd-Ir> Manager„, 


Component Services * 

ûjjtSaijaa Add-In Manager ^jAai jj jLwb 



Load tju^j AJ jjjjai jLwb jj<&: VB Data Form Wizard ^aj jA«AJ JUS Jjj: LlSjjjjJjbj jj 

. jJJSjj OK jLwb jj. ûûjaSjjjjj Loaded jljS ULlS JjjjjAjjIjAj Ij Behavior 

. jjjSjJ jA«»AJ ULIS j Jûmj Data Form Wizard jjljSjbj ^<u Add-Ins ^<u <U JûIjjjj LLJu-2 


ad'd'Ins 

Visual Data Manager, 

Add-In Manager..,. 
Cofnponer* Services 


jData Form Wisard.., 

























































Next jLwb jj jjjjjjjjÛAA Access Uj$<U ûû^jjjjj Data Form Wizard (JjjAjû jj jUU -3 



^AjUjJj Al jjd£»» jL&u uuii ^JjU ş&j \£ (Path) ^ujfi IJjLu AS lu^jJjjj ^j 4j jLfiLj dj — 4 

jAwAJ jjjS dutf <u j2j$4j jjS jb jj<^ Access 97 && MjijS jULijji li Microsoft Access 

ipjAjjjjj jj Browse.. 


Ddtabase Name: 




'V. 

."IJ - 


tffiA 


BtD^VSC. 


4ijj*ijj What name do you want for the form ^4 j <U ijuLuaS jj<Luj4Sjjjjj jj jbjû ,jS4jjj4jû4j- 5 
Next jLwb jj jjjjjjJ44 ADO Code ^jjljji4A Ij Binding Type <^4 j <U jLub jj ( jj£jU4û tSjAûj ) jU 

. jjjjjjJjUdA 


Jrftrt Fsnim Wî^nr-ri 



Lefcct thr= d«ir=d fcrm -arid -a dtt-a bmai-q typt to 

i.w to ^ccêiês Lhe dete. 


^idt iidiny lJu yLu vfarJ_ f»ur th‘»ti Förhi? 

jt d^dl C4 i| 


r >:+m Lsyout 

‘jrd CDBtdst^cct) 
MwtefjtMal 
MbMKlBHÊnd 
MSChart 


Undng fyp>= 

■'" flLXJi D.-ac= ''-critrd 


■ flfjQ CûcSc 




sldp | 


Cancoi 


-.J 


: D-a cf. 


PJ=xt S- 


















































j ul£d: (JjJU-) ijjlj ^ljl: û*£::j:: dJj:j<Uû Aj jUb -6 

** V ♦♦ ♦ V V 



Aw4j :j<Uja Jb aS. a5j ► j4u4J d ld S jLwU j:jJjjJ4^4w4j jAj imJjA5::j:: jLSAwJj ^Lwd ud£ AJ jLwU :j 
tjjAJj jj Cloumn Sort By ^ ^ja <u ûijSu JûAjjjj dS ûLS:: ^ ûljl: jLwb ûwlj jûu-j: jL5:jlj:jjjjJ<b 

♦ V * ** * * ♦♦ V v ** ♦ 

.jjjjjjjbName 



.:jjjjj<Lft Next jLwb :j 







































































<u IjAj. Form <U 4jUUjjjj4S Command Button UuLû aS ûjj 4 S::j«: jû ^SjjjjAjû jj -7 
jLwb jj jjd£:: Select All jAwJJ û ld S jjjjjoJAA iJjjj^a ^jjjAj jj 4mj. jj4S:: j4wJJ ^5ui£ ûdijj o tpjjjS 

.jjJiSjjûUlS Finish 



A: jûljjj: jLwL; :j. jlS:jljj|j jj jLS::jS ^uwjjj^ <u LuA ( jjÎAJJj jj^Ujj) Aabj^ ^uiijl: Jj jLwjLjjS l::jaJ 
. jjjjl:: LuJjjj ipjJjS Aj jUuujjM j jtSJjJûUJ AjjLj <U jJjj^J jlSjjljjb ^jb JS<ULjj<U ^lwjjjj ^jjjjS 

























fwjûUui jAoLij*jêpi 

:(Axwb- )Calculator c$4«b>4j 

. jjdSjjjUlj <uj^1w Command button <U Aib (30) j Textbox <U 4jb d<u <u DjjAm 



(Locked = True ) h<& (Text box ) ^jû<uj<ujLÛ <U 
BorderStyle = FixedSingle ^jû<uj 4<jLj b Form (Jjj4*i<u <U UjjjAA jj 
ûjjJuAtijLStj iS (j 4 jljljjS b General-Declarations ^jjAu <U cÛAwjjj Q> 

. <u op j n2 j nl jSjjljJu 4S jjd&j AmLuj 

X j»4j 

Const pi = 22 / 7 
Dim op As String 
Dim nl As Single 
Dim n2 As Single 


jUMjjjjJ 4j|jjS pAJ JJJjlj^ (JJU47ifi> j>AJ (JJjJjS 4J iLjljulj jA4 jj jLwlu 


9 



i>ub 

Textl .Text = Textl .Text + "0" 

0 

Textl .Text = Textl .Text + "1" 

î 

Textl .Text = Textl .Text + "2" 

2 

Textl .Text = Textl .Text + "3" 

3 

Textl .Text = Textl .Text + "4" 

4 

Textl .Text = Textl .Text + "5" 

5 







































































I<j yejfej tl 


Textl .Text = Textl .Text + "6" 

6 

Textl .Text = Textl .Text + "7" 

7 

Textl .Text = Textl .Text + "8" 

8 

Textl .Text = Textl .Text + "9" 

9 

If InStr(l, Textl.Text, ".") = 0 Then 
"." + Textl.Text = Textl.Text 

End If 


<nl = Val(Textl.Text 
"+" = op 

"" = Textl.Text 

+ 

(nl = Val(Textl.Text 
"-" = op 

"" = Textl.Text 

- 

(nl = Val(Textl.Text 
"/" = op 

"" = Textl.Text 

/ 

(nl = Val(Textl.Text 
"*" = op 

"" = Textl.Text 

* 

(nl = Val(Textl.Text 
" A " = op 

"" = Textl.Text 

A 

Textl.Text = Sin(Val(Textl.Text) * pi /180) 

Sin 

Textl.Text = Cos(Val(Textl.Text) * pi /180) 

Cos 

Textl.Text = Tan(Val(Textl.Text) * pi /180) 

Tan 

Textl.Text = l/tan(Val(Textl.Text) * pi /180) 

Ctan 

If Val(Textl.Text) >= 0 Then 

Textl .Text = Log(Val(Textl .Text)) 

Else 

MsgBox"" 

End If 

Log 

If Val(Textl.Text) >= 0 Then 

Textl.Text = Log(Val(Textl.Text)) / Log(10) 

Else 

MsgBox"" 

Endlf 

Ln 

Textl .Text = Exp(Val(Textl.Text)) 

Exp 

If Left(Textl.Text, 1) <> "-" Then 

Textl.Text = "-" + Textl.Text 

-/+ 
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Else 

Textl.Text = Right(Textl.Text, Len(Textl.Text) - 1) 

End If 


Textl.Text= 1 / Val(Textl.Text) 

1/x 

Textl.Text = Val(Textl.Text) A 2 

X 2 

If Val(Textl.Text) >= 0 Then 


Textl.Text = Sqr(Val(Textl.Text)) 


Else 

Sqr 

MsgBox"" 


End If 


If Val(Textl.Text) < 0 Then 


MsgBox"" 


Exit Sub 


Endlf 


If Val(Textl.Text) > 20 Then 


MsgBox"" 


Else 

N! 

s = 1 


For i = 1 To Val(Textl.Text) 


s = s * i 


Next i 


Textl.Text = s 


End If 


n2 = Val(Textl.Text) 


If op = "+" Then 


Textl.Text = nl + n2 


Elself op = "-" Then 


Textl.Text = nl -n2 


Elself op = "*" Then 


Textl.Text = nl * n2 


Elself op = "/" Then 


Textl .Text = nl / n2 


Elself op = " A " Then 


Textl .Text = nl A n2 


End If 



j L*j *Jjm jLfiU (nl) jjU jU^SjjUj ^U UjjAm AS jjASûAjjAm (+) £a$£ ^jlwjjj jj^dJ 
. QjşdSûî ÛmJJ <U jU ^djjj ^JjUj jLwU jJjJjJJJJAA ^Sjl^jS ^jJ^ L fc lU L (op) AJ (jJîj£ jj4i" 

.4b AJ Awj^ JJ jLjJlj 4i ^ijjjl Jj jjUJAfr jLSJJjL^JJU JjbjiS AJ ^ 
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îûjo Aj Label jU ^uwj^j 4) lj 

: JJijfu f>jj Activate <u b form <U ^Umjjj <sj* 4j 


Private Sub Form_Activate() 

Dim s As String 

For i = 1 To Len(Labell) 
s = s & Mid$(Labell, i, 1) & vbCrLf 

Next 

Labell = s 

End Sub 



Cujjj igjLjJ jjSdLJÛflu 4J ÛJjSûl ûJu (text) jiJ ^ULuJ^J AJ Ij jjg 

U JJJM ) 

jlj irUuJjj jû (jSdJijtej AJ JJ ijJSJJijJM JJ J ijJjlui\jS ijj-u dJJijJM JJ i£AJij4jijS^j <U ÛjjJjU) jiS 

ûmjjjj ^jjju <U jrjMjjja JjlijS pJj \jJj ûjjSjjjjm Textbox JSJuSjj luSjû 

Private Sub Form_Load() 

Textl.SelStart = 0 
Textl.SelLength = Len(Textl) 

End Sub 


3AwU jJASj ^ AmLu ^JjU^S ^Lûlj jj O 

puêjjja Jj\ijS f>4j \jij 

Private Sub Commandl_Click() 

Dim x, y As Integer 
x = Screen. Width /15 
y = Screen.Height /15 

If x = 640 And y = 480 Then MsgBox ("640 * 480") 

If x = 800 And y = 600 Then MsgBox ("800 * 600") 

If x = 1024 And y = 768 Then MsgBox ("1024 * 768") 

End Sub 
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$ jUASdjjjj ^UAl (>udili ScreenSaver jfe 

. jjjjI^ jAjbji |»aj ijjA 4j ûI^jjjjj jj jULwLw jdjjjb IjAj Commandbutton jAwAl jLû jj£ dJS jjA 4 j 


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal 
hWnd As Long, _ 

ByVal wMsg As Long, 

ByVal wParam As Long, 

ByVal lParam As Long) As Long 

Private Const WM SYSCOMMAND = &H112& 

Private Const SC_SCREENSAVE = &HF140& 

Private Sub Commandl_Click() 

Dim Res As Long 

Res = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&) 

End Sub 





: Jbli 


i£4£4jUji 


JjU ^jj jS (jJjS 

FileCopy 

Jjli (JtjdJJ jm 

Kill 

JjU AiuljS/jb ^Uj^S 

Name 






Jijjji LUMjjl jj 

MkDir 

jJJLJji (JûjAJOjm jj 

RmDir 

j iJJji i£$\j ^yJjjl jj 

Name 
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îutûtti space aS AJIj jje 

jjJjljjS fkJÛ ^uwjjj jj^ 4j 


Private Sub Textl_KeyPress(KeyAscii As Integer) 

If KeyAscii = 32 Then 

KeyAscii = 0 

End If 

End Sub 



JjA <U <* 5 <WIjjAJ çjj+u j (JJÛj&wL J 4 S 4 «ljjAJ (JjLj ^ûilj iii^ <U JJAUJISj ÎJ<U<Uljj<U j 44 jUASdjjjJ <U jûljJJ: 

. Shell ijjjS ^Mwjjj 

Dim a As Integer 

Private Sub Commandl_Click() 

a = Shell(" C:\Program Files\Adobe\Acrobat 5.Q\Reader\AcroRd32 .exe", 
vbNormalF ocus) 

End Sub 

.jjjSjSJu ijjj? Ijjj(.exe) UjjjAajj Jj<nS<uljj<u j Path lj<j jjjjU b jjj<u ^jj<û 


t Jjti 

<u Imjlj ijûjjij Path <U jjijj AUli jAj ijjjjjj lujjj Ljjjju diULjj<u (Hidden) ^jjjûjjU jj 

. jjjiSjj^ 

Private Sub Commandl_Click() 

SetAttr "jjjjj path ", vbHidden 
End Sub 


jj L^jJj 

AUli jAj JjjjJj ujjjj LUjJum (Readonly) ûjj jjJjjUjj^ jj I^jJj JjjSj uUjjJUji <U jb JUUli jU Ij ^jjjû jj 

.jjJSjjç? jj LxLû jûjjlj Path ^jjjw <U jûljj 

Private Sub Commandl_Click() 

SetAttr "jjjjj path ", vbreadonly 
End Sub 
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jU JjLÎ i£d$tiêJyM 

4j ^ Lmuj jûj:l: Path ^jûjw 4) jûljj 4bU j4j ^jj jjj ûujj: DjjJm Ij4j ûûjjJJji jU dibli ^jjJuûjw jj 

. jj4Sj:^ 


Private Sub Commandl Click() 

Call kill ("path") 

End Sub 




j4j jjljj: ^LS ^4jîf4A jAj. jjjrjji iijUljjJj ^SuiUjj4A <U jb I: UiuJ<U jjjjul (J4 «Uj4j AJ 

■ jJjSy^AJ^ ^IS (J4iîf4A 

sDesign Time Errors jJlju: tPLSAJ jlS4i4A /l 
^jjj AJ ûjjjj:l: aJaa ^jj^ jjjuLwLj <u 45 ûjjjjiaj:: Syntax Errors jl5Jj ^jljJûUj jûju ju UjjjJU 
ûCuli U-.Next ijjljjlj Ai For ty u**j’4jl: UJ:j uujj: jjAjI£j:jS ^ uwjjj 4j j24j2f4A j4j 4S 4S.:jjj4jjjj: 

^jjjjiw <u ji<uu<u j»4j. ûi^jjjj: jjjm ^Jj4j 4S4ijji ûûj4£j:jj: jj jUJÛJU ^SujUjj jjj|j:l: Enter 
.Auto Syntax««Editor«<Option AJ4S ûûuljjjjjjjAA AutoSyntax ûljjli ûû^jjjj: ^SujUjjjj 


:Run Time Errors j: jS^ju^ ^LS ^j^jj^/2 
I:jU 4 jjjjj UJjj uLSj: ^jU: jj jLu ^ujm 4 £ ujj 4 SUjj: û U jU 4 j ju/jjj :jS l:4jVA& ^4J 

Dim X As Byte 

X = 256 _ 

yuJSJi’ji j ÛÛJ Byte iJ4£jjj?X 4SÛ12U JjjJJÛ Jj4J (jûij<U) j»5f<U 4U^^lj4iUj^4J4Û46gu&4£wlj iJJjil 

.ûu^jjjj: Over flow ^jUju .255 4J ûL jjjjjJiI 


îjBugş 


t ^ tUj^jjrtS Jj<L ; jkifAJ . uuJAJ jU j ^Ulj4jUj (J4J4A JjjjAJ 4S4 jUjAJ 4j4jlj4J 

JJjJUj4A ÛÛJ BugS ^J <U IJÛI 4 C- 4J Jj^j d<U<UUj<U ûu£ 4 ijU 4 t jUuwJj4J4S JJJ (Ujiwl) ^jjj <U ÛUJJU 


ûujj: Jj4jjjjJu jUji-jj bugs 


jûljûU jUjj- juûj 4S jjûljjjjjj jijuj:. ûûûlwjjI: Uljû<ujjj jLw<uUj<u 
. jj4jJjjJj jj jU BugS 4S (£jj4j jj jJ (J!jLw<UUj4j 4jjjjj jU 4 S<UUj<U 
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■ dSXvt/ |££ttdJI 0$jj/. 1*1(11 M Jlfr ft fafl -1 

. ddUjjJI j^« / uJy* JU^ t ul^Jl/. i- U ih t J Jtjjfad ( 9 * i aJ -2 

.JUJjjfaJI 'jujjjJI ~iSX*A/i$yw'i\ JUjej JLuun JLJg .u L u j Jl^fad>ia& uLcS -3 

. JjUjjJI JJA4 "îj)^jr/ JU& Jtf i v t / .l *l(i i M Jl jA d ~4 

www.saduinet.com g2>« -5 
www.vb4arab.com -6 

www.arabteam2000.com -7 



























